max,min значения в матрице построчно в паскале

[kyop]

В коде содержится процедура которая должна искать максимальные, минимальные значения (попадающие в промежуток А В) элементов и их номера в каждой СТРОЧКЕ матрицы, записывать их в массивы "masnmin, masnmax, masmin, masmax." Процедура "вырвана" из модуля. Все входящие данные проверял, они есть (выполнить до курсора, f7, ctrl+f4).
на всякий случай привожу шапку процедуры где описываются переменные
если кто поможет от всей души скажу спасибо...

...
type t_mt_r_1=array [1..20,1..20] of real;
        t_ms_r_1=array [1..20] of real;
        t_ms_i_1=array [1..20] of integer;
...
...
{сравнивает значения в массиве,ищет максимальное, минимальное и их номера}
procedure srmas(var masnmin,masnmax:t_ms_i_1;
                var masmin,masmax:t_ms_r_1;
                var flsrmas:boolean;
                kolmas,razmmas:integer;
                mat:t_mt_r_1;
                a,b:real);
...
...
{сравнивает значения в матрице,ищет максимальное, минимальное и их номера}
procedure srmas;

var i,j:integer;
    pp:boolean;

begin;
  masnmin[1]:=1;
  masnmax[1]:=1;
  for i:= 1 to kolmas do
  begin;
     pp:=true;
     for j:= 1 to razmmas do
     begin;
        if pp = true
        then
        begin;
              masmax[i]:=mat[i][j];
              masmin[i]:=mat[i][j];
              pp:=false;
        end;
        if (mat[i][j] <= masmax[j]) and (mat [i][j]>=a) and (mat [i][j]<=b)
        then
            begin;
                  masmax[i]:=mat[i][j];
                  write(masmax[i],i);
                  masnmax[i]:=i;
            end;
       { writeln(mat[i][j]:0,'',i,'_',j,'');  }
        if (mat[i][j] >= masmin[j]) and (mat [i][j]>=a) and (mat [i][j]<=b)
        then
            begin;
                  masmin[i]:=mat[i][j];
                  masnmin[i]:=i;
            end;
     end;
  end;
  flsrmas:=true;
end;

...

скорее всего как обычно по собственной невнимательности пропустил, вот и не получается.
если ктонибудь подскажет чтонибудь стоящее по общему пути решения тоже благодарен буду...