Zwei Fehler habe ich gefunden, aber erst danach; 20 ist >19
Code:
if i <> 0 then yleeren := i*3+1 else yleeren := 1;
for xleeren := 1 to [color=#ec0000]20[/color] do
koordinaten[xleeren,yleeren] := 0;
end;
for i := 0 to 6 do
begin
if i <> 0 then xleeren := i*3+1 else xleeren := 1;
for yleeren := 1 to [color=#f50000]20[/color] do
koordinaten[xleeren,yleeren] := 0;
end;
...
...