исправить чтобы работала

 program Ippodrom;
            uses graph,crt;
procedure printer1(j:integer);
            begin
  setcolor(black);
           Circle(j-1,150,10);
           Setcolor
(white);
        Circle(j,150,5);
 end;
 procedure printer2(j:integer);
       begin
       setcolor(black);
       Circle(j-1,300,10);
       setcolor(red);
       Circle(j,300,5);
       end;
procedure printer3(j:integer);
     begin
    setcolor(black);
    Circle(j-1,450,10);
    setcolor(green);
    Circle(j,450,5);
end;
 var X:array[1..3] of integer;
 i,bet,graphdriver,graphmode,a,k,bit,vk:integer;
   BEGIN
   repeat
   write('Vas privetstvuet igra "Ippodrom"!');
   writeln(' Dlya nachala igri vam nuzhno vibrat loshad.');
    writeln('Viberite odnu iz 3 loshadei:');
    writeln('1-belaya, 2-krasnaya, 3-zelenaya');
    readln(bit);
    until (bit>=1) and (bit<=3);
       graphdriver:=detect;
   initgraph(graphdriver,graphmode,'c:\pascal\bgi');
   setcolor(yellow);
   setbkcolor(Black);
   line(10,0,10,480);
   line(620,0,620,480);
   line(10,75,620,75);
   line(10,225,620,225);
   line(10,375,620,375);
   x[1]:=10;
x[2]:=10;
x[3]:=10;
while ((x[1]<=620) or (x[2]<=620) or (x[3]<=620)) do
begin
randomize;
if (x[1]=620) and (x[2]<620) and (x[3]<620) then  bet:=1;
if (x[2]=620) and (x[3]<620) and (x[1]<620) then  bet:=2;
if (x[3]=620) and (x[1]<620) and (x[2]<620) then  bet:=3;
delay(1000);
a:=random(4);
case a of
1:  begin x[a]:=x[a]+1; printer1(x[a]);   end;
2:  begin x[a]:=x[a]+1; printer2(x[a]);   end;
3:  begin x[a]:=x[a]+1; printer3(x[a]);   end;
end;
end;
closegraph;
case bet of
1: writeln('Pobedila belaya loshad');
2: writeln('Pobedila krasnaya loshad');
3: writeln('Pobedila zelenaya loshad');
end;
if bet=bit then writeln('Pozdravliaem! Vi pobedili!!! =)') else
writeln('K sozhaleniyu, vi proigrali =(');
writeln('Hotite sigrat eshe raz?');
writeln('Vvedite 1 chtobi sigrat eshe, 2 chtobi vyiti iz igri');
repeat
readln(vk);
until (vk=1) or (vk=2);
clrscr;
UNTIL (vk=2);
 
end.