Даны две переменные вещественного типа: a,b. перераспределить значения данных переменных так, чтобы в a оказалось меньшее из значений

Var  
a, b, p: real;
begin 
write('Введите значения A и B через пробел: '); 
readln(a,b); 
if a > b then   
begin   
p:=a;   
a:=b;   
b:=p;   
end; 
writeln('A = ', a, '; B = ', b);
end.