Найти ошибку в коде (мини-игра с пушечными выстрелами)

uses graphabc;
var v, gor_cel, s_okr, h_okr, s_snar, h_snar, vstrel:integer;
    s, h, t, alpha, grad:real;
    chislo:string;
    
procedure POLE;
begin line(10,200,200,200);
circle(20,195,10);
line(18,200,32,190);
line(50,200,70,180);
line(70,180,90,200);
rectangle(gor_cel+110,190,gor_cel+10+110,200);
chislo:='номер выстрела '+inttostr(vstrel);
textout(2,2,chislo);
end;
 
procedure zapros; begin
textout(4,30,'ВВедите угол наклона пушки');
readln(alpha);
textout(4,30,'Введите стартовую скорость ядра');
readln(v);
end;
begin
   vstrel:=0;
   t:=0;
   grad:=0.0175;
   gor_cel:= random(20);
     repeat
     vstrel:=vstrel+1;
     pole;
     circle(32,190,2);
     zapros;
     {выстрел полет}
     LockDrawing;
     t:=0; 
        repeat
        
        t:=t+0.05;
        s:=v*t*cos(alpha*grad);
        h:=v*t*sin(alpha*grad)-9.81*sqr(t)/2;
        h_okr:=-(Round(h));
        s_okr:=Round(s);
        s_snar:=0;
        h_snar:=0;
        s_snar:=s_okr+32;
        h_snar:=h_okr+190;
        window.Clear;
        pole;
        circle(s_snar,h_snar,2);
        redraw;
        until h_snar>196
     until 2>3
end.

  until h_snar>196;
  UnlockDrawing; //это вставь
 until 2>3

{выстрел полет}
LockDrawing;
t:=0; 
repeat
   t:=t+0.05;
   s:=v*t*cos(alpha*grad);
   h:=v*t*sin(alpha*grad)-9.81*sqr(t)/2;
   h_okr:=-(Round(h));
   s_okr:=Round(s);
   s_snar:=0;
   h_snar:=0;
   s_snar:=s_okr+32;
   h_snar:=h_okr+190;
   window.Clear;
   pole;
   circle(s_snar,h_snar,2);
   redraw;
until h_snar>196;
UnlockDrawing; // Надо разблокировать окно