Поменять местами два введенных числа. паскаль.

Var
  m,n,t:integer;
begin
  Write('Введите два натуральных числа: '); Read(m,n);
  t:=m; m:=n; n:=t;
  Writeln('Результат обмена: ',m,', ',n)
end.

Тестовое решение:
Введите два натуральных числа: 35 -20
Результат обмена: -20, 35