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

Program If9;

Var
  A, B, Temp: Real;

Begin
  WriteLn('Введите числa A и B: ');
  ReadLn(A, B);
  If A < B Then
  Begin
    Temp := A;
    A := B;
    B := Temp;
  End;
  WriteLn('A = ', A, ' B = ', B);

End.