Переделать код под формальные переменные

const n=5;
const m=6;
type matrix=array[1..n,1..m]of integer;
function maxpov(k:matrix):integer;
var i,j,max,min,d:integer;
begin
max:=k[1,1];
 for i:=1 to n do
  begin
   for j:=1 to m do
    begin
     if k[i,j]>max then 
      max:=k[i,j];
     if k[i,j]< min then
      min:=k[i,j];
    end;
  end;
repeat
d:=0;
 for i:=1 to n do
  begin
   for j:=1 to m do
    begin
     if max=k[i,j] then
      d:=d+1;
     if d>1 then break;
      end;
  end;
max:=max-1;
 until (d>1)or(max=min);
 if max=min 
  then
   maxpov:=7
  else
   maxpov:=max+1;
end;
 
 
 
var v_max,v_min,i,j,f:integer;
a:matrix;
begin
      WriteLn('Лабораторная работа 7_1');
      WriteLn('Вариант 5');
      WriteLn('ИС-14-1-1');
      WriteLn('Зыков Роман');
 writeln;
 randomize;
 write('введите max  ');
 readln(v_max);
 write('введите min  ');
 readln(v_min);
 writeln;
  for i:=1 to n do
   begin
    for j:=1 to m do
     begin
      a[i,j]:=random(v_max-v_min + 1) + v_min;
      write(a[i,j]:5);
     end;
    writeln;
   end;
  f:=maxpov(a);
 if f<>7 
  then
    writeln('max=',f)
  else
    writeln('такого числа нет');
readln;
end.