semafor v pascale

Program Semafor;
Uses Crt, Graph;
Const polomer = 40;
      okraje = 20;
Var i :integer;

Procedure Kruh(poradie, farba: integer);
Begin
  poradie:= poradie - 2;
  SetColor(farba);
  Circle (320, 240+poradie*(2*polomer+okraje), polomer);
  SetFillStyle(1, farba);
  FloodFill(320, 240+poradie*(2*polomer+okraje), farba);
End;

Procedure Inicializacia;
Var Gd, Gm, x1, y1, x2, y2: Integer;
Begin
  Gd:= 0;
  Gm:= 0;
  InitGraph(Gd, Gm, 'C:\TP7\BGI\');
  ClearDevice;
  If GraphResult <> 0 Then Halt;
  {horny lavy bod}
  x1:=320-okraje-polomer;
  y1:=240-2*okraje-3*polomer;
  {dolny pravy bod}
  x2:=320+okraje+polomer;
  y2:=240+2*okraje+3*polomer;
  {dvojty obdlznik}
  SetColor(7);
  Rectangle(x1, y1, x2, y2);
  Rectangle(x1+1, y1+1, x2-1, y2-1);
  {cervebe svetlo}
  Kruh(1, Red);
End;

Procedure Zmena(poradie:integer);
Begin
  {najprv vsetky zhasneme, potom  zapneme to svetlo, ktore treba}
  Kruh(1, 0);
  Kruh(2, 0);
  Kruh(3, 0);
  Case poradie Of
  1: Kruh(1, 4);
  2: Kruh(2, 6);
  3: Kruh(3, 2);
  End;
End;

Begin
  Inicializacia;
  Repeat
    Zmena((i Mod 3)+1);
    Inc(i);
  Until Ord(Readkey) = 27;
End.