Морской бой: написать проверку для расстановки последнего корабля

program morskoi_boy ;
 
var
  m, n: integer; 
  a: array [1..100, 1..100] of char;
  f1, f2: text ;
 
procedure  vvod(n, m: integer );
var
  i, j: integer ;
begin
  for i := 1 to n do 
  begin
    for j := 1 to m do 
    begin
      readln(a[i, j]);
      write(f1, a[i, j] ); 
    end; 
    writeln(f1); 
  end; 
  
end;
 
procedure proverka(x: integer) ;
var
  c: array [1..100, 1..100] of boolean; 
  i, j: integer;
  f: real; 
  b: char ;
begin
  f := 0; 
  for i := 1 to n do 
  begin
    for j := 1 to m do 
    begin
      if (a[i, j] = '.' ) then c[i, j] := true
      else c[i, j] := false;  // создал новый массив .Где свободная ячейка там true где ячейка занята false
      
    end;
  end;
  for i := 1 to n do 
  begin
    for j := 1 to m do 
    begin // от сюда начинается проверка .Вот подскажите каким способом проверить массив ? 
      
      if c[i, j] = true  and c[i, j + 1] = true  and c[i + 1, j] = true  and c[i - 1, j] = true 
        then f := f + 1;  // корявая проверка
    end;
  end; 
  write(f2, f);
end;
 
begin
  assign(f1, 'D:\vod.txt '); 
  assign(f2, 'D:\vivid.txt');
  rewrite(f1 );
  rewrite(f2);
  writeln('введите размер карты m*n , где  m < 100 > n'); 
  readln( n, m ); 
  vvod(n, m); 
  close(f1); 
  proverka(1);
  close(f2); 
  
end.

const
  MaxN=100;
  Ship='*';
type
  TField = array [0..MaxN+1,0..MaxN+1] of Char;
 
function Count(const f: TField; n, m: Integer): Integer;
var r, t, i, j, ii, jj: Integer;
begin
  r:=0;
  for i:=1 to n do for j:=1 to m do begin
    t:=0;
    for ii:=i-1 to i+1 do for jj:=j-1 to j+1 do
      if f[ii,jj]=Ship then Inc(t);
    if t=0 then Inc(r);
  end;
  Count:=r;
end;

program morskoi_boy ;
const
  MaxN = 100;
  Ship = '*';
 
type
  TField = array [0..MaxN + 1, 0..MaxN + 1] of Char;
 
var
  m, n: integer; 
  a: tfield ;
  f1, f2: text ;
 
procedure  vvod(n, m: integer );
var
  i, j: integer ;
begin
  for i := 1 to n do 
  begin
    for j := 1 to m do 
    begin
      readln(a[i, j]);
      write(f1, a[i, j] ); 
    end; 
    writeln(f1); 
  end; 
  
end;
 
 
 
function Count(const f: TField; n, m: Integer): Integer;
var
  r, t, i, j, ii, jj: Integer;
begin
  r := 0;
  for i := 1 to n do 
    for j := 1 to m do 
    begin
      t := 0;
      for ii := i - 1 to i + 1 do 
        for jj := j - 1 to j + 1 do
          if f[ii, jj] = Ship then Inc(t);
      if t = 0 then Inc(r);
    end;
  Count := r;
  writeln (r ) ; 
end;
 
begin
  assign(f1, 'D:\vod.txt '); 
  assign(f2, 'D:\vivid.txt');
  rewrite(f1 );
  rewrite(f2);
  writeln('введите размер карты m*n , где  m < 100 > n'); 
  readln( n, m ); 
  vvod(n, m); 
  close(f1); 
  count(a,n,m);
  close(f2); 
  
  
end.

const
  MaxN = 100;
  Ship = '*';
type
  TField = array [0..MaxN + 1, 0..MaxN + 1] of Char;
function Count(var f: TField; n, m: Integer): Integer;
var
  r, t, i, j, ii, jj: Integer;
begin
  r := 0;
  for i := 1 to n do for j := 1 to m do begin
    t := 0;
    for ii := i - 1 to i + 1 do for jj := j - 1 to j + 1 do
      if f[ii, jj] = Ship then Inc(t);
    if t = 0 then begin Inc(r); f[i, j] := 'O'; end;
  end;
  Count := r;
end;
 
var
  m, n, i, j: Integer; 
  a: TField;
  f: Text;
begin
  Assign(f, 'input.txt '); Reset(f);
  ReadLn(f, n, m );
  for i := 1 to n do begin
    for j := 1 to m do Read(f, a[i, j]); ReadLn(f);
  end;
  Close(f);
  WriteLn('Способов: ', Count(a, n, m));
  for i := 1 to n do begin
    for j := 1 to m do Write(a[i, j]); WriteLn;
  end;
end.

for ii:=i-1 to i+1 do if f[ii,  j] = Ship then Inc(t);
for jj:=j-1 to j+1 do if f[i,  jj] = Ship then Inc(t);