Ping Pong Spiel vereinfacht.. Brauche aber trotzdem Hilfe!

[ibp]

tu dir und uns bitte einen gefallen und formatiere deinen quellcode bitte, das macht das ganze leserlicher.

so etwa:

Delphi-Quellcode:

procedure ....
var
  a: boolean:
  ...
begin
  a:= true;
  for i:= 1 to 10 do
  begin
    a:= false;
    if a then
    begin
      ...
    end
    else
    begin
      ...
    end;
  end;
end;