Гибкие подпрограммы

program lab10;
  const m1=5;
        n1=9;
        m2=4;
        n2=8;
  procedure read_matr(var a:array of real);
    var i:word;
    begin
      for i:=0 to high(a) do
        read(a[i]);
    end;
  procedure num_max(a:array of real; n:byte; var x,y:byte);
    var max:real;
        nmax,j,k:word;
    begin
      max:=a[0];
      for k:=0 to (high(a) div 2) do
        if a[k]>=max then
          begin
            max:=a[k];
            nmax:=k;
          end;
      x:=(nmax div n)+1;
      y:=(nmax-n*(x-1))+1;
    end;
  function search_min(a:array of real;x,y,n,m:byte):real;
    var min:real;
        i,j,t,p:byte;
        k:word;
    begin
      t:=0;
      min:=a[n*x+y-2];
      for i:=x+1 to m do
        begin
          t:=t+1;
          if t<y then p:=y-t else p:=1;
          for j:=p to y+t do
            begin
              k:=n*(i-1)+j-1;
              if a[k]<=min then min:=a[k];
            end;
          search_min:=min;
        end;
    end;
  var a:array[1..m1*n1]of real;
      b:array[1..m2*n2] of real;
      c,d,e,f:byte;
  begin
    writeln('Vvedite 1 matrix');
    read_matr(a);
    num_max(a,n1,c,d);
    writeln('1 min element');
    writeln(search_min(a,c,d,n1,m1):4:2);
    writeln('Vvedite 2 matrix');
    read_matr(b);
    num_max(b,n2,e,f);
    writeln('2 min element');
    writeln(search_min(b,e,f,n2,m2):4:2);
    readln;
    readln;
end.