Встречено 'procedure', а ожидался оператор - PascalABC.NET (26414)

program lab5; 
type arr=array[1..10,1..10] of integer;
const n=3;
var a:arr;
    i1,j1,k1,sum:integer;
    m:boolean;

procedure LocMin(const a:arr; i,j,k:integer; var Min:boolean);
//var i,j,k:integer; Min:=boolean;
begin
 k:=0;
 for i:=1 to n do
        for j:=1 to n do
   Min:=((i=1)or(a[i,j]<a[i-1,j]))and
        ((j=1)or(a[i,j]<a[i,j-1]))and
        ((i=n)or(a[i,j]<a[i+1,j]))and
        ((j=n)or(a[i,j]<a[i,j+1]));
     for i:=1 to n do
        for j:=1 to n do
        if Min then k:=k+1;
end;

function summa(i,j:integer; a:arr):boolean;
begin
      summa:=false;
if (i<j) then summa:=true;
end;
 
begin
for i1:=1 to n do
   begin
    for j1:=1 to n do
      begin
        a[i1,j1]:=random(20);
        write(a[i1,j1]:4);
      end;
    writeln;
   end;

begin for  i1:=1 to n do
 for j1:=1 to n do
  if summa(i1,j1,a) then sum:=sum+a[i1,j1];
  writeln(sum); 
end;
procedure LocMin(a,i1,j1,k1,m);writeln('k=',k1); {Встречено 'procedure', а ожидался оператор}
 
end.