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

var
A, B, v: real;

begin
write('Введите число A: ');
readln(A);
write('Введите число B: ');
readln(B);
v := A; { <-- Значение А записываем в v }
A := B; { <-- Значение В записываем в А }
B := v; { <-- Значение А записываем в В, поскольку v = A }
writeln('Результат:');
writeln(' A = ', A, ', B = ', B);
readln
end.