В массиве все элементы, стоящие выше максимального элемента, заменить на минимальный элемент

// ïîèñê ìèíèìàëüíîãî:
imin:=1; jmin:=1; // èíäåêñû ìèíèìàëüíîãî
imax:=1; jmax:=1; // èíäåêñû ìàêñèìàëüíîãî
for i:=1 to n do
  for j:=1 to m do
  begin
    if a[i,j] < a[imin,jmin] then
    begin
      imin:=i;
      jmin:=j;
    end;
    if a[i,j] > a[imax,jmax] then
    begin
      imax:=i;
      jmax:=j;
    end;
  end;
    
// åñëè ìàêñèìàëüíûé - â ïåðâîé ñòðîêå:
if imax=1 then writeln('Ìàêñèìàëüíûé ýëåìåíò â ïåðâîé ñòðîêå');
 
// èíà÷å - çàìåíà:
for i:=1 to imax-1 do
  for j:=1 to m do
    a[i,j]:=a[imin,jmin];

if a[i, j] > a[imin, jmin] then

var a: array [1..20] if integer;
      imin, imax, jmax, jmin, n, m, j, i: integer;
begin
clrscr;
randomize;
 
imin:=1; jmin:=1;
imax:=1; jmax:=1;
 
 for i:=1 to n do
 for j:=1 to m do
if a[i, j] > a[imin, jmin] then
begin
imin:=i;
jmin:=j;
end;
if a[i, j] > a[imax, jmax] then
begin
imax:=i;
jmax:=j;
end;
end;
 
if imax=1 then writeln(' максимальный элемент в первой строке');
for i:=1 to imax-1 do
for j:=1 to m do
a[i, j]:=a[imin, jmin];
writeln;
readln
end.

uses
  crt;

uses
  crt;
 
var
  a: array [1..20, 1..20] of integer;
  imin, imax, jmax, jmin, n, m, j, i: integer;
 
begin
  clrscr;
  randomize;
  write('Ââåäèòå n, m: ');
  readln(n, m);
 
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := random(99) + 1;
      write(a[i, j]:4);
    end;
    writeln;
  end;
 
  imin := 1; jmin := 1;
  imax := 1; jmax := 1;
 
  for i := 1 to n do
    for j := 1 to m do
    begin
      if a[i, j] < a[imin, jmin] then
      begin
        imin := i;
        jmin := j;
      end;
      if a[i, j] > a[imax, jmax] then
      begin
        imax := i;
        jmax := j;
      end;
    end;
 
  if imax = 1 then writeln('Ìàêñèìàëüíûé ýëåìåíò â ïåðâîé ñòðîêå') else
  begin
    for i := 1 to imax - 1 do
      for j := 1 to m do
        a[i, j] := a[imin, jmin];
    writeln('Ïðåîáðàçîâàííûé ìàññèâ:');
    for i:=1 to n do
    begin
      for j:=1 to m do
        write(a[i,j]:4);
      writeln;
    end;
  end;
  writeln;
  readln
end.

imax := i;
        jmax := j;
      end;
    end;