Даны два числа А и В. Переменной А присвоить большее, а в переменной В – меньшее из двух значений, находившихся там ранее

Program prog;
Uses crt;

var a,b, tmp: real;

begin
clrscr;
write('A = ');
readln(a);
write('B = ');
readln(b);
writeln;
if (a<b) then
begin
tmp:=a;
a:=b;
b:=tmp;
end;
writeln ('A = ', a);
writeln ('B = ', b);
end.