ПОМОГИТЕ ПОЖАЛУЙСТА!!!
Даны две переменные вещественного типа: A, B. Перераспределить значения данных переменных так, чтобы в A оказалась меньшее из значений, а в B - большее. Вывести новые значения переменных A и B
Язык Pascal

(Справка: С - дополнительная переменная. Нужна для того, чтобы мы могли поменять А и В местами)

var A,B,C:real;

begin

 C:=0;

 writeln('Напишите значения А и В');

 readln(A,B);

 if A<B then

   writeln('A=',A,' ','B=',B)

 else

 begin

   C:=A;

   A:=B;

   B:=C;

   writeln('A=',A,' ','B=',B)

 end;

end.