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

program mest;
var a, b, tmp: real; {Для обозначения временной переменной используем tmp - temporary.}
begin
    write('Введите A и B: ');
    readln(a, b);
    tmp := a;
    a := b;
    b := tmp;
    writeln('A = ', a);
    writeln('B = ', b);
end.