Pascal/Turbo Pascal - ayuda con programa

disculpen quisiera saber si me pueden ayudar a crear un programa que compare tres numeros ya saben mayor menor e igual lo unico qu e he hecho e s este codigo pero no me queda bien podrian ayudarme.

program numero_mayor;
uses crt;
var a,b,c:real;
begin
textbackground(blue);
clrscr;
writeln(\'introduce el primer numero\');
readln(a);
writeln(\'introduce el segundo numero\');
readln(b);
writeln(\'introduce el tercer numero\');
readln(c);

if (a<b) and (a<c) then
begin
writeln(a,\'es mayor que \',b,\' y \',c);
end
else
if (b<a) and (b<c) then
begin
writeln(b,\'es mayor que \',a,\' y \',c);
end
else
if (c<a) and (c<b) then
begin
writeln(c,\'es mayor que \',a,\' y \',b);
end
else
if ((c=a) and (b=a)) and ((b=a) and (b=c)) and ((c=a) and (c=b)) then
begin
writeln(\'los numeros son iguales\');
end
end.

por su atencion gracias

José, creo las barras en pascal no son caracteres válidos... y fijate en la linea en la que comparas si son iguales... con la primera comparación ya es suficiente... Espero que sirva... si alguien encuentra mejores maneras, bienvenidas sean... Un abrazo

program numero_mayor;
uses crt;
var a,b,c:real;
begin
textbackground(blue);
clrscr;
writeln('introduce el primer numero\');
readln(a);
writeln(\'introduce el segundo numero\');
readln(b);
writeln(\'introduce el tercer numero\');
readln(c);

if (a<b) and (a<c) then
begin
writeln(a, ' es menor que ',b,' y ',c);
end
else
if (b<a) and (b<c) then
begin
writeln(b, ' es menor que ',a,' y ',c);
end
else
if (c<a) and (c<b) then
begin
writeln(c,' es menor que ',a,' y ',b);
end
else
if ((c=a) and (b=a))then
begin
writeln('Los numeros son iguales');
end
end.