Даны два целых числа. Поменять местами их значения- Pascal(Паскаль)

uses crt;
var a,b: integer;
procedure swap (var x,y: integer);
var z: integer;
begin
  z:=x;x:=y;y:=z;
end;

begin
  clrscr;
  write('a=b=');readln(a, b);
  swap(a,b);
  writeln('a=,b=',a, ' ' ,b);
  readln;
end.