Оцените игру-шутер

uses graphabc,events,Timers;
type massiv=array[1..100] of integer;
var
x1,y1,x2,y2:massiv;
x:array[1..1000] of integer;
y:array[1..1000] of integer;
i,xs,xz,ys,yz,Qs,Qz,Qzw,Qsw,N,p,j,A,m,z,sg,pg,h,l,sb,pb,time:integer;
t:real;
s,z1,sg1,pg1,l1,sb1,pb1,s1:string;
procedure TimerProc;
begin
 
clearwindow;
SetWindowTop(30);
 
If h=0 then begin
SetWindowHeight(900);
SetFontName('Times');
SetFontSize(200);
TextOut(220,250,'3');
sleep(800);
TextOut(220,250,'2');
sleep(800);
TextOut(220,250,'1');
sleep(800);
TextOut(150,120,'');
sleep(100);
z:=0;
end;
LockDrawing;
SetFontSize(1);
SetFontName('MS Sans Serif');
 
  If A=0 then begin
   {Обекты}
     {зеленый}
   Line(150+xz,800,150+xz,810);
   Line(149+xz,801,149+xz,810);
   Line(151+xz,801,151+xz,810);
   Circle(150+xz,820,10);
   FloodFill(150+xz,820,clgreen);
   
     {Синий}
   Line(500+xs,800,500+xs,810);
   Line(499+xs,801,499+xs,810);
   Line(501+xs,801,501+xs,810);
   Circle(500+xs,820,10);
   FloodFill(500+xs,820,clblue);
   
   {Стрельба}
    {Зеленый}
   If Qz=1 then begin
   Qzw:=1;
   while y1[Qzw]<>0 do Qzw:=Qzw+1;
   x1[Qzw]:=150+xz;
   y1[Qzw]:=810;
   end;
 
 
    Qz:=0;
 
   For i:=1 to 100 do begin
   If y1[i]>0 then begin
   y1[i]:=y1[i]-10;
   Circle(x1[i],y1[i],3);
   end;
   end;
   
   {Cиний}
   If Qs=1 then begin
   Qsw:=1;
   while y2[Qsw]<>0 do Qsw:=Qsw+1;
   x2[Qsw]:=500+xs;
   y2[Qsw]:=810;
   end;
 
 
    Qs:=0;
 
   For i:=1 to 100 do begin
   If y2[i]>0 then begin
   y2[i]:=y2[i]-10;
   Circle(x2[i],y2[i],3);
   end;
   end;
   
   {Враги}
   For i:=1 to N+1 do begin
   If y[i]=0 then x[i]:=random(250)+100;
   y[i]:=y[i]+1;
   p:=random(2);
   If p=0 then x[i]:=x[i]-random(4) else x[i]:=x[i]+random(4);
   Circle(x[i],y[i],10);
   FloodFill(x[i],y[i],clred);
   end;
   
   For i:=1 to 100 do
   For j:=1 to N+1 do begin
   If (x1[i]>0) and (y[j]>16) then
   If  (sqrt(sqr(x1[i]-x[j])+sqr(y1[i]-y[j]))<15) then begin
   x1[i]:=0;
   y1[i]:=0;
   N:=N+1;
   y[j]:=0;
   z:=z+1;
   end;
   
    If (x2[i]>0) and (y[j]>16) then
   If  (sqrt(sqr(x2[i]-x[j])+sqr(y2[i]-y[j]))<15) then begin
   x2[i]:=0;
   y2[i]:=0;
   N:=N+1;
   y[j]:=0;
   l:=l+1;
   end;
   end;
 
   time:=time+1;
   if time mod 2=0 then m:=m+2 else m:=m+1;
   t:=m/100;
   Str(t,s);
   SetFontSize(1);
   TextOut(555,20,s);
   TextOut(510,20,' Время :');
 
   str(N+1,s1);
   TextOut(513,40,'Врагов :');
   TextOut(557,40,s1);
 
 
   For j:=1 to N+1 do
   If y[j]>810 then A:=1;
  end;
 
 h:=1;
 str(t,s);
 If A=1 then begin
 SetWindowHeight(600);
 SetFontColor(000000000);
SetPenStyle(psDot);
Rectangle(10,10,610,570);
SetFontName('Times');
SetFontSize(20);
TextOut(150,70,'Ваше время :');
TextOut(310,70,s);
TextOut(380,70,'сек.');
TextOut(200,30,'ИГРА ОКОНЧЕНА');
TextOut(200,120,'Личный рейтенг ');
TextOut(25,200,'Произведено выстрелов:');
TextOut(25,250,'Уничтожено противников:');
TextOut(25,300,'Совершенно перемещений:');
 
SetFontColor(clgreen);
TextOut(350,160,'Зеленый');
Str(z,z1);
Str(sg,sg1);
Str(pg,pg1);
TextOut(390,250,z1);
TextOut(390,200,sg1);
TextOut(390,300,pg1);
 
SetFontColor(clblue);
TextOut(500,160,'Синий');
Str(l,l1);
Str(sb,sb1);
Str(pb,pb1);
TextOut(525,250,l1);
TextOut(525,200,sb1);
TextOut(525,300,pb1);
 
end;
 
Redraw;
end;
 
procedure KeyDown(Key: integer); begin
case Key of
  VK_Left:begin  xs:=xs-10;pb:=pb+1;end;
  VK_Right:begin xs:=xs+10;pb:=pb+1;end;
  VK_Down:begin Qs:=1; sb:=sb+1;end;
   end;
 
case Key of
  65:Begin xz:=xz-10;pg:=pg+1;end;
  68:Begin xz:=xz+10;pg:=pg+1;end;
  VK_Space:begin Qz:=1;sg:=sg+1; end;
   end;
   end;
 
 
begin
OnKeyDown:=KeyDown;
Timer.Create(1,TimerProc);
end.