Menggeser nilai x,y dan z

Berikut adalah contoh program dengan pascal yang didalamnya berisi procedure untuk menggeser nilai, misalnya jika diinputkan nilai X, Y, Z = 2, 3, 4, maka setelah procedure dijalankan akan menjadi X, Y, Z = 4, 2, 3.

program menggeser;
uses wincrt;
var
x,y,z:integer;
temp:integer;

procedure tukar;
begin
temp:=x;
x:=y;
y:=z;
z:=temp;
end;


procedure input;
begin
writeln(' Program menukar tukar');
writeln('Masukan nilai x : ')readln(x);
writeln('Masukan nilai y : ');readln(y);
writeln('Masukan nilai z : ');readln(z);
writeln('x = ',z);
writeln('y = ',x);
writeln('z = ',y);
end;

begin
clrscr;
tukar;
input;
readln;
end.

maaf yah kaLo program ini ada kesalahan..MakLum,, saya baru belajar..hehehe :)