Задача про затопление острова.

A: array[1..N+2, 1..M+2] of boolean;

For i:=1 to N+2 do
 For j:=1 to M+2 do
   A[i,j]:=0;
For i:=2 to M do
 For j:=2 to N do
  readln(A[i,j]);

K:=0;
For i:=2 to M do
 For j:=2 to N do
  If (A[i-1,j-1])and(A[i-1,j])and(A[i-1,j+1])and
     (A[i,j-1])and(A[i,j+1])and(A[i+1,j-1])and
     (A[i+1,j])and(A[i+1,j+1])
  then inc(K);

writeln(K*10000);

program pole;
uses crt;
var a,b,h,w,i,f:Integer;
earth:Array[0..000,0..31] of Integer;
begin
clrscr;
Writeln('Введите высоту поля:');Readln(h);
Writeln('Введите ширину поля:');Readln(w);
Writeln('Клетки заполняются с нижнего левого угла...');
Writeln('-- 0: море 1: суша --');
for a:=1 to h do
for b:=1 to w do
begin
Writeln ('Клетка: ',a,',',b); Readlb(i);
earth[a,b]:=i;
end;
{Теперь заполняем борьдюрчики..}
for i:=0 to h do
begin
earth[0,i]:=0;
earth[w+1,i]:=0;
earth[i,0]:=0;
earth[i,h+1]:=0;
end;f:=0;
{Тут я проверяю каждую клеточку...хе-хе}
for a:=1 to h do
for b:=1 to w do
begin
if((earth[a-1,b-1]<>0)and(earth[a,b-1]<>0)and(earth[a+1,b-1]<>0)and(earth[a+1,b]<>0)and
earth[a+1,b+1]<>0)and(earth[a,b+1]<>0)and(earth[a-1,b+1]<>0)and(earth[a-1,b]<>0))then
{все случаи жизни перечислил, впринципе если массив назывался бы просто "а", то было бы короче...}
f:=f+1;
end;
Writeln('Площадь,S = ',(f*10000));
readkey;
end.

for a:=1 to h do
  for b:=1 to w do 
     Writeln ('Клетка: ',a,',',b); Readlb(earth[a,b]);