Einfügen von Prozeduren

[Cloudwalk]

selb st gedanken gemacht hab ich mir schon klar den ganzen tag schon und bin sogar langsam am verzweifeln also gut, fange ich mal neu an.

dann fang ich mal mit dem einfügen von Prozeduren an, wie das threadthema schon lautet.

also

ich hab die Prozedur zug:
procedure zug(var zug,wid:integer); der zug prozedur code ist:

Delphi-Quellcode:

procedure zug(var zug,wid:integer);
begin
    zug := zug-1;
    if zug = 0 then
      begin
        if wid = 1 then
          begin
            wid := 2;
            spielnachricht.caption :='Spieler 2 ist an der Reihe.';
            zug := 5;
          end
        else
          begin
            wid := 1;
            spielnachricht.caption :='Spieler 1 ist an der Reihe.';
            zug := 5;
          end;
        end;
    end;

und ich weiß jetzt nicht wie ich es in eine andere prozedur einbinde bis jetzt hab ich
zug(zug,wid); genommen doch dies klappt nicht. types of actual and formal var parameters must be identical ist die fehlermeldung.