...
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;

...

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;
 t_ms_b_1=array [1..20] of boolean;


{сравнивает значения в массиве,ищет максимальное, минимальное и их номера}
procedure srmas(var masnmin,masnmax:t_ms_i_1;
                var masmin,masmax:t_ms_r_1;
                var fmasmin,fmasmax:t_ms_b_1;
                kolmas,razmmas:integer;
                mat:t_mt_r_1;
                a,b:real);

var i,j:integer;

begin;
 for i:= 1 to razmmas do
  begin;
   fmasmax[i]:=false;
   fmasmin[i]:=false;
   masmax[i]:=a-1;
   masmin[i]:=b+1;
   for j:=1 to kolmas do
    begin;
     if (mat[i,j]>masmax[i]) and (mat[i,j]>=a) and (mat [i,j]<=b) then
      begin;
       masmax[i]:=mat[i,j];
       masnmax[i]:=j;
       fmasmax[i]:=true;
      end;
     if (mat[i,j]<masmin[i]) and (mat[i,j]>=a) and (mat[i,j]<=b)  then
      begin;
       masmin[i]:=mat[i,j];
       masnmin[i]:=j;
       fmasmin[i]:=true;
      end;
    end;
  end;
end;

VAR
 M:t_mt_r_1;
 Min_V,Max_V:t_ms_r_1;
 Min_ex,Max_ex:t_ms_b_1;
 Min_N,Max_N:t_ms_i_1;
 i,j,Nlin,Ncol:Integer;
 UL,LL:Real;

BEGIN
 Nlin:=10;
 Ncol:=10;
 Ul:=80.0;
 LL:=70.0;
 Randomize;
 for i:=1 to Nlin do
  begin
   for j:=1 to Ncol do
    begin
     M[i,j]:=Random*100;
     Write(M[i,j]:7:2);
    end;
   WriteLn;
  end;
 Writeln;
 srmas(Min_N,Max_N,
       Min_V,Max_V,
       Min_ex,Max_ex,
       Ncol,Nlin,
       M,
       LL,UL);
 For i:=1 to Nlin do
  begin
   Write('Line ',i:2,' Maximum: ');
   if Max_ex[i] then
    Write('N= ',Max_N[i],' value=',Max_V[i]:7:2)
   else
    Write('does not exist;');
   Write(' Minimum: ');
   if Min_ex[i] then
    WriteLn('N= ',Min_N[i],' value=',Min_V[i]:7:2)
   else
    WriteLn('does not exist;');
  end;
 ReadLn;
END.

...
     pp:=true;
     for j:= 1 to razmmas do
     begin;
        if pp = true
...

 Randomize;
 for i:=1 to Nlin do
  begin
   for j:=1 to Ncol do
    begin
     M[i,j]:=Random*100;

begin
clrscr;
kolmas:=4;
razmmas:=4;
a:=1;
b:=4;
mat[1,1]:=1;
mat[1,2]:=7;
mat[1,3]:=7;
mat[1,4]:=8;
mat[2,1]:=2;
mat[2,2]:=5;
mat[2,3]:=8;
mat[2,4]:=1;

   for j:=1 to Ncol do
    begin
     M[i,j]:=Random*100;

 Randomize;
 for i:=1 to Nlin do
  begin