Поменять местами содержимое переменных A и B и вывести новые значения A и B — Pascal(Паскаль)

Program Begin22;

Var
  A, B, Temp: Real;

Begin
  WriteLn('Введите A и B');
  RealLn(A, B);
  Temp := A;
  A := B;
  B := Temp;
  WriteLn('A = ', A:6:3, ' B = ', B:6:3);
  ReadLn;

End.