В массиве поменять первую строку со строкой в которой находится максимальный элемент

const m = 10;
 
var a: array [1..m, 1..m] of integer;
    i, j, mi, mj, n, t: integer;
 
procedure prnt;
var i, j: integer;
begin
  for j := 1 to n do
    begin
      for i := 1 to n do write(a[i, j]:5);
      writeln
    end
end;
 
begin
  randomize;
  repeat
    write('n = ');
    readln(n);
    if (n < 2) or (n > m) then writeln('n out of range 2..', m, ', reenter.')
  until (n >= 2) and (n <= m);
  mi := 1;
  mj := 1;
  for j := 1 to n do
    for i := 1 to n do
      begin
        a[i, j] := random(98) - 49;
        if a[i, j] > a[mi, mj]
          then begin
            mi := i;
            mj := j
          end
      end;
  writeln('Source array:');
  prnt;
  for i := 1 to n do
    begin
      t := a[i, 1];
      a[i, 1] := a[i, mj];
      a[i, mj] := t
    end;
  write('Max is a[', mi, ', ', mj, '], ');
  if mj = 1 then write('no change. ') else write('exchange 1 and ', mj, ' rows. ');
  writeln('Result:');
  prnt;
  for j := 1 to n do a[mi, j] := 2 * a[mi, j];
  writeln('Elements of column ', mi, ' multiple to 2. Result:');
  prnt;
  readln
end.