Vier Gewinnt Anfängerbeispiel

[Wuaegner]

Da du keine Fehlermeldungen postest, schreib ich mal die Fehler die ich gefunden habe:

Delphi-Quellcode:

  repeat
    eingangsabfrage;
    brettanalyse;
    zuganalyse;
    ki;

Hier rufst du Prozeduren auf die du jedoch vorher so deklariert hast:

Delphi-Quellcode:

procedure brettanalyse(x, y: Integer);
procedure zuganalyse(x, y: Integer);  
procedure ki(x, y: Integer);

Sie erwarten also alle jeweils zwei Parameter vom Typ integer.
Ein korrekter Aufruf müsste dann z.B so aussehen:

Delphi-Quellcode:

repeat 
eingangsabfrage;
brettanalyse(2,4);
ki(1,2);
zugangsanalyse(1,3);

WriteLn gewinner + (' hat gewonnen'); Das muss, falls "gewinner" eine Variable vom Typ string ist, so aussehen:
Writeln(gewinner + ' hat gewonnen'); .

Denke jetz sind ein paar Fehler behoben, aber poste einfach deine konkreten Fehlermeldungen, die du nicht lösen kannst dann kann man dir besser helfen.