По информатике if8 паскаль даны два числа.вывести в начале большее а затем меньшее.

Var a,b:real;
begin
readln(a,b);
if a>b then
writeln(a,' ',b);
if b>a then
writeln(b,' ',a);
end.