Паскаль(желанно турбо)!!

Procedure maxmin(var x: real; var y: real);
var a: real;
begin
if (xlt;y) then begin
a:=x;
x:=y;
y:=a;
end;
end;
var a,b,c:real;
begin
writeln('Введите числа a,b,c: ');
readln(a,b,c);
if (alt;b) then maxmin(a,b);
if (blt;c) then maxmin(b,c);
writeln(a,' ',b,' ',c);
readln;
end.