Pascal (Паскаль) Процедуры и функции

[DRGNforce]

Описать процедуру maxmin(x,y), Присваивающую параметру x большее из действительных чисел x и y, а параметру y-меньшее, и использовать ее для перераспеределения действительных чисел a,b и c так, чтобы стало a>=b>=c.

[Z1000000]

Program Program3;
procedure MaxMin(var X,Y:Real);
var
 Tmp : Real;
begin
if X<Y then
 begin
 Tmp := X;
 X := Y;
 Y := Tmp;
 end;
end;

var a,b,c :Real;

begin
Readln(a,b,c);
MaxMin(a,b);
MaxMin(a,c);
MaxMin(b,c);
writeln (a,' ',b,' ',c);
end.

[DRGNforce]

Спасибо огромное!