Морской бой

const 
k=0;
type GPole = array[1..10,1..10] of integer;
var
i,j,q,b,chet:integer;
pole:gpole;
procedure Init (var Pole: GPole);
var x,y:integer;
begin
randomize;
for x:=1 to 10 do
for y:=1 to 10 do
Pole[x,y]:=0;
end;
function Freedom (x,y:integer; Pole:GPole):boolean;
const d:array[1..8,1..2] of integer =
      ((0,1),(1,0),(0,-1),(-1,0),(1,1),(-1,1),(1,-1),(-1,-1));
var i:integer;
    dx,dy:integer;
begin
if (x>0)and(x<11)and(y>0)and(y<11)and(Pole[x,y] = 0) then
 begin
  for i := 1 to 8 do
   begin
    dx:=x+d[i,1];
    dy:=y+d[i,2];
    if (dx>0)and(dx<11)and(dy>0)and(dy<11)and(Pole[dx,dy]>0) then
     begin
      result:=false;
      exit;
     end;
   end;
  result:=true;
 end
else result:=false;
end;
 
procedure Ships (var Pole: GPole);
var n,m,i:integer;
    x,y,kx,ky:integer;
    b:boolean;
begin
Init (Pole);
for n:=3 downto 0 do
for m:=0 to 3-n do
 repeat
  x:=random(10)+1;
  y:=random(10)+1;
  kx:=random(2);
  if kx=0 then ky:=1 else ky:=0;
  b:=true;
  for i:=0 to n do
  if not Freedom (x+kx*i,y+ky*i,Pole) then b:=false;
  if b then
  for i:=0 to n do
  Pole[x+kx*i,y+ky*i]:=1;
 until b;
end;
begin
chet:=0;
Ships(pole);
for i:=1 to 10 do 
begin
  for j:=1 to 10 do
  begin
write(pole[i,j]:2);
end;
writeln;
end;
  while chet<>1 do
begin
for i:=1 to 10 do 
begin
  for j:=1 to 10 do
  begin
  if pole[i,j] = 0 then
  inc(chet);
  end;
chet:=0;
Write('Введите номер строки ');
readln(q);
Write('Введите номер столбца ');
readln(b);
if pole[q,b]=1 then
begin
Writeln('Попал');
pole[q,b]:=0;
end
else
if pole[q,b]=0 then
Writeln('Не попал');
end; 
end;
end.