В матрице поменять местами наименьшие элементы во второй и третьей строке

procedure mr(var x: array of integer; var m: integer);
var i: integer;
begin
  m := 0;
  for i := 1 to high(x) do if x[i] < x[m] then m := i;
  inc(m);
end;
var a: array [1..3, 1..5] of integer;
    i, j, m2, m3, t: integer;
begin
  randomize;
  writeln('Matrix:');
  for i := 1 to 3 do
    begin
      for j := 1 to 5 do
        begin
          a[i, j] := random(198) - 99;
          write(a[i, j]:4)
        end;
      writeln
    end;
  mr(a[2], m2);
  writeln('Min element in row 2 is a[2, ', m2, '] = ', a[2, m2]);
  mr(a[3], m3);
  writeln('Min element in row 3 is a[3, ', m3, '] = ', a[3, m3]);
  t := a[2, m2];
  a[2, m2] := a[3, m3];
  a[3, m3] := t;
  writeln('Result:');
  for i := 1 to 3 do
    begin
      for j := 1 to 5 do write(a[i, j]:4);
      writeln
    end;
  readln
end.

var a: array [1..3, 1..5] of integer;
i, j, m: integer;
procedure mr(st:integer; var r:integer;);
begin
  r:=1;
  for i := 2 to 5 do if a[st,i] < a[st,r] then r:= i;
end;
 
begin
  randomize;
  writeln('Matrix:');
  for i := 1 to 3 do
    begin
      for j := 1 to 5 do
        begin
          a[i, j] := random(198) - 99;
          write(a[i, j]:4)
        end;
      writeln
    end;
  mr(2,m);
  writeln('Min element in row 2 is a[2, ', m, '] = ', a[2, m]);
  mr(3,j);
  writeln('Min element in row 3 is a[3, ', j, '] = ', a[3, j]);
  i:= a[2, m];
  a[2, m] := a[3, j];
  a[3, j] := i;
  writeln('Result:');
  for i := 1 to 3 do
    begin
      for j := 1 to 5 do write(a[i, j]:4);
      writeln
    end;
  readln
end.