Die Typen der tatsächlichen und formalen Var-Parameter müsse

[exilant]

In Deiner Prozedur "tausch" steckt ebenfalls ein Fehler:

Delphi-Quellcode:

procedure tausch(var x,y:integer);
var z:integer;
begin
   x:=y;
   Y:=z;
   z:=x;
end;

muss heissen:

Delphi-Quellcode:

procedure tausch(var x,y:integer);
var z:integer;
begin
   z:=x;
   x:=y;
   y:=z;
end;