Игра "Морской бой"

uses GraphABC;
 
var Play_Pole:array[1..10,1..10] of integer; 
var Comp_Pole:array[1..10,1..10] of integer;
x,x1,y,y1:integer;
 
procedure Interfas; 
  begin
  //левое поле               //правое поле
rectangle(30,20,330,320);     rectangle(400,20,700,320);
 
  line(30,50,330,50);         line(400,50,700,50);
  
  line(60,20,60,320);         line(430,20,430,320);
  line(30,80,330,80);         line(400,80,700,80); 
  
  line(90,20,90,320);         line(460,20,460,320);
  line(30,110,330,110);       line(400,110,700,110);  
 
  line(120,20,120,320);       line(490,20,490,320);
  line(30,140,330,140);       line(400,140,700,140); 
  
  line(150,20,150,320);       line(520,20,520,320);
  line(30,170,330,170);       line(400,170,700,170); 
  
  line(180,20,180,320);       line(550,20,550,320);
  line(30,200,330,200);       line(400,200,700,200);
  
  line(210,20,210,320);       line(580,20,580,320);
  line(30,230,330,230);       line(400,230,700,230);
  
  line(240,20,240,320);       line(610,20,610,320);
  line(30,260,330,260);       line(400,260,700,260);
  
  line(270,20,270,320);       line(640,20,640,320);
  line(30,290,330,290);       line(400,290,700,290);
  
  line(300,20,300,320);       line(670,20,670,320);
end;  
 
procedure PressKey(cn:char);  
begin
end;
  BEGIN
      //шапка программы
       Window.Title :=('Игра Морской бой');
      x:=31; 
      x1:=21; 
      y:=61; 
      y1:=51; 
      setpenwidth(1); 
      setwindowsize(800,450); 
      while 0=0 do begin 
                     lockdrawing; 
                     window.Clear; 
                     Interfas; 
                     rectangle(x,x1,y,y1);
                     OnKeyPress:=PressKey; 
                     redraw; 
                   end; 
{основная программа}
   Begin 
 
   end; 
  end.