Ошибка в программе на тему подпрограммы и с использованием массива

program asd;
 const s=8;
 n=4;
 m=4;
 type masd=array[1..n,1..m] of real;
 bol=array[1..n,1..m] of boolean;
 var
 a:masd;
 i,j,x,k,sum:integer;
 d:boolean;
 {_____________________________________________________}
   procedure poisksym (var a:masd);
   var i1,j1:integer;
   sum1:real;
   b1:bol;
   begin
   sum1:=0;
   for i1:=1 to n do 
    for j1:=1 to m do 
    begin
     if (i1=1) and (j1=1) then 
      begin
      sum1:=0;
       sum1:=(a[(i1+1),j1])+(a[i1,(j1+1)])+(a[(i1+1),(j1+1)]);
       if (sum1)>(s) then 
        b1[i1,j1]:=false
        else
        b1[i1,j1]:=true;
        end; 
      if (i1=n) and (j1=1) then 
      begin
      sum1:=0;
        sum1:=(a[(i1-1),j1])+(a[i1,(j1+1)])+(a[(i1-1),(j1+1)]);
         if (sum1)>(s) then 
          b1[i1,j1]:=false
          else
          b1[i1,j1]:=true;
          end;
      if (i1=1) and (j1=m) then 
       Begin
       sum1:=0;
         sum1:=(a[(i1+1),j1])+(a[i1,(j1-1)])+(a[(i1+1),(j1-1)]);
           if (sum1)>(s) then 
          b1[i1,j1]:=false
          else
          b1[i1,j1]:=true;
          end;
      if (i1=n) and (j1=m) then 
      Begin
      sum1:=0;
         sum1:=(a[(i1-1),j1])+(a[i1,(j1-1)])+(a[(i1-1),(j1-1)]);
           if (sum1)>(s) then 
          b1[i1,j1]:=false
          else
          b1[i1,j1]:=true;
          end; 
       if (j1=1) and ((i1>1)and(i1<n)) then 
         Begin
         sum1:=0;
         sum1:=(a[(i1-1),j1])+(a[(i1+1),j1])+(a[i1,(j1+1)]);
           if (sum1)>(s) then 
          b1[i1,j1]:=false
          else
          b1[i1,j1]:=true;
          end;
           if (i1=1) and ((j1>1)and(j1<m)) then 
         Begin
         sum1:=0;
         sum1:=(a[(i1+1),j1])+(a[i1,(j1+1)])+(a[i1,(j1-1)]);
           if (sum1)>(s) then 
          b1[i1,j1]:=false
          else
          b1[i1,j1]:=true;
          end;
          if (i1=n) and ((j1>1)and(j1<m)) then 
         Begin
         sum1:=0;
         sum1:=(a[i1,(j1+1)])+(a[i1,(j1-1)])+(a[(i1-1),j1]);
           if (sum1)>(s) then 
          b1[i1,j1]:=false
          else
          b1[i1,j1]:=true;
          end;
           if (j1=m) and ((i1>1)and(i1<n)) then 
         Begin
         sum1:=0;
         sum1:=(a[(i1+1),j1])+(a[(i1-1),j1])+(a[i1,(j1-1)]);
           if (sum1)>(s) then 
          b1[i1,j1]:=false
          else
          b1[i1,j1]:=true;
          end;
          if ((j1>1)and(j1<m)) and ((i1>1)and(i1<n)) then 
         Begin
         sum1:=0;
         sum1:=(a[(i1-1),j1])+(a[(i1+1),j1])+(a[i1,(j1+1)]);
           if (sum1)>(s) then 
          b1[i1,j1]:=false
          else
          b1[i1,j1]:=true;
          end;
        end;
        i1:=1;
        j1:=1;
         for i1:=1 to n do 
         begin
         for j1:=1 to m do 
          Begin
           if b1[i1,j1] then 
            write('true',' ')
            else
             write('false',' '); 
            end;
            writeln;
            end;
       end; 
 {___________________________________________________________________}      
    Begin
     for i:=1 to n do 
      for j:=1 to m do 
        Begin
          writeln('введите A[',i,',',j,']','  ');
          read(A[i,j]);
        end;
        poisksym(A);
            end.

program asd;
uses crt;
const s=8;
      n=4;
type masd=array[0..n+1,0..n+1] of integer;
     bol=array[1..n,1..n] of boolean;
{_____________________________________________________}
procedure massivA(var a:masd);
var i,j:integer;
begin
//создадим периметр из 0 для удобства
for i:=0 to n+1 do
 begin
  a[i,0]:=0;
  a[i,n+1]:=0;
  a[0,i]:=0;
  a[n+1,i]:=0;
 end;
writeln('Массив А');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-5+random(11);
    write(a[i,j]:4)
   end;
  writeln;
 end;
end;
{___________________________________________________________________}
procedure massivB(a:masd;var b:bol);
var i,j,i1,j1:integer;
    sum:integer;
begin
writeln('Массив В');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    sum:=0;
    for i1:=i-1 to i+1 do
    for j1:=j-1 to j+1 do
    sum:=sum+a[i1,j1];
    sum:=sum-a[i,j];
    b[i,j]:=sum<s;
    write(b[i,j]:6);
   end;
  writeln
 end;
end;
{___________________________________________________________________}
var a:masd;
    b:bol;
Begin
massivA(a);
massivB(a,b)
end.