Нужна подсказка

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const n=5;
      m=7;
var a:array[1..n,1..m] of real;
    i,j,jmn,imx,jmx:integer;
    mn,mx:real;
begin
randomize;
writeln('Matrica');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=10*random;
    write(a[i,j]:7:2);
   end;
  writeln
 end;
mx:=0; {на всякий случай иничиализируем переменые}
imx:=0;
jmx:=0; 
for i:=1 to n do
 begin
  mn:=a[i,1];
  jmn:=1;
  for j:=1 to m do
  if a[i,j]<mn then
   begin
    mn:=a[i,j];
    jmn:=j;
   end;
  if i=1 then
   begin
    mx:=mn;
    imx:=1;
    jmx:=jmn
   end
  else if mn>mx then
   begin
    mx:=mn;
    imx:=i;
    jmx:=jmn
   end;
  writeln('Min v str ',i,'=',mn:0:2);
 end;
write('Max iz min=',mx:0:2,' v stroke ',imx,' v stolbce ',jmx);
readln
end.

for i:=1 to n do
 begin
  mn:=a[i,1];
  jmn:=1;
  for j:=1 to m do
  if a[i,j]<mn then
   begin
    mn:=a[i,j];
    jmn:=j;
   end;
  if i=1 then
   begin
    mx:=mn;
    imx:=1;
    jmx:=jmn
   end
  else if mn>mx then
   begin
    mx:=mn;
    imx:=i;
    jmx:=jmn
   end;
  writeln('Min v str ',i,'=',mn:0:2);
 end;
write('Max iz min=',mx:0:2,' v stroke ',imx,' v stolbce ',jmx);
readln
end.