Ошибка перед процедурой

Function kkk(var ki,kj:byte):integer; {а*бзҐв Є®ндЁжЁҐ*в* k}
var i,j:byte;           {ў бў®Ў®¤*л е Є«ҐвЄ*е}
    k,k_min:integer;
    b:boolean;
begin
     b:=1=1;
     for i:=1 to Na do
     for j:=1 to Nb do
     if p[i,j]=-1 then begin
     k:=c[i,j]-alfa[i]-betta[j];
     if b then begin
     b:=1=2;
     ki:=i; kj:=j; k_min:=k;
     end else
     if k<k_min then begin
     k_min:=k;
     ki:=i; kj:=j;
     end;
     textcolor(6);
     gotoxy(j*(n1+1)+n2-5,i*2+14);
     kkk:=k_min;
end;
 
(**********************)
 
procedure div_mod(c:byte;var a,b:byte;);
begin {®¤*®¬Ґа*®Ј® ¬*ббЁў*}
      b:=c mod nb; a:=c div Nb+1; {ў ¤ўг¬Ґа*л©}
      if b=0 then begin
      b:=Nb; dec(a);
      end;
end;

begin
     b:=1=1;
     for i:=1 to Na do
         for j:=1 to Nb do
          if p[i,j]=-1 then begin
          k:=c[i,j]-alfa[i]-betta[j];
                                     if b then begin
                                      b:=1=2;
                                      ki:=i; kj:=j; k_min:=k;
                                     end else
                                     if k<k_min then begin
                                     k_min:=k;
                                      ki:=i; kj:=j;
                                     end;
          textcolor(6);
          gotoxy(j*(n1+1)+n2-5,i*2+14);
          kkk:=k_min;
          end;
end;
(**********************)
 
procedure div_mod(c:byte;var a,b:byte);
begin {®¤*®¬Ґа*®Ј® ¬*ббЁў*}
      b:=c mod nb; a:=c div Nb+1; {ў ¤ўг¬Ґа*л©}
      if b=0 then begin
      b:=Nb; dec(a);
      end;
end;