Найти максимальный элемент матрицы в строках где максимальный встречается раньше минимального.

program olololo;
var a:array[1..5,1..5]of real;
i,j,q,w:integer;
max1,min1,max:real;
begin
    for i:=1 to 5 do
    begin
    writeln;
    for j:=1 to 5 do
    read (a[i,j]);
    end;
max:=a[1,1];
    for i:=1 to 5 do
    begin
    max1:=a[i,1];
    min1:=a[i,1];
                 for j:=1 to 5 do
                 begin;
                 if a[i,j]>max1 then
                    begin
                    max1:=a[i,j];
                    q:=j;
                    end;
                 if a[i,j]<min1 then
                    begin
                    min1:=a[i,j];
                    w:=j;
                    end;
                 end;
    if (q<w) and (max1>max) then max:=max1;
    end;
write (max:3:3);
readln;
end.

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of real;
    m,n,i,j,imx,imn,k:byte;
    mx:real;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' m=');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to m do
 begin
   for j:=1 to n do
    begin
     a[i,j]:=10*random;
     write(a[i,j]:5:2);
    end;
   writeln;
 end;
writeln;
{найдем первую строку, гда макс раньше мин и максимальный элемент в ней}
k:=0;
i:=1;
while(i<=m)and(k=0) do
 begin
  imn:=1;imx:=1;
  for j:=1 to n do
   begin
    if a[i,j]<a[i,imn] then imn:=j;
    if a[i,j]>a[i,imx] then imx:=j;
   end;
  if imx<imn then
   begin
    k:=1;
    mx:=a[i,imx];{пока наш максимальный}
   end
  else i:=i+1;
 end;
if k=0 then write('Во всех строках максимальный следует после минимального')
else{сейчас ищем максимальный из всех нужных}
 begin
  for i:=1 to m do
   begin
    imn:=1;imx:=1;
    for j:=1 to n do
     begin
      if a[i,j]<a[i,imn] then imn:=j;
      if a[i,j]>a[i,imx] then imx:=j;
     end;
    writeln('В строке ',i,' индекс макс.=',imx,' миним.=',imn);
    if imx<imn then writeln('  макс. раньше =',a[i,imx]:0:2);
    if a[i,imx]>mx then mx:=a[i,imx];
   end;
  write('Максимальный элемент из строк, где максимальный раньше минимального=',mx:0:2);
 end;
readln
end.