Представление матрицы как массива строк. Обмен двух строк

program matrix;
  const N = 3;
  type
    t_range = 1..N;
    t_row = array [t_range] of integer;
    t_matr = array [t_range] of t_row;
  
  procedure read_matr(var a: t_matr);
    var i, j: t_range;
    begin
      for i := 1 to N do
        for j := 1 to N do
          read(a[i, j]);
    end;
    
  function row_with_min_elem(a: t_matr): t_row;
    var 
      i, i_with_min, j: t_range;
      min: integer;
    begin
      i_with_min := 1;
      min := a[1, 1];
      for i := 1 to N do
        for j := 1 to N do 
          if a[i, j] < min then
          begin
            i_with_min := i;
            min := a[i, j];
          end;
      row_with_min_elem := a[i_with_min];
    end;
    
  function row_with_max_elem(a: t_matr): t_row;
    var 
      i, i_with_max, j: t_range;
      max: integer;
    begin
      i_with_max := 1;
      max := a[1, 1];
      for i := 1 to N do
        for j := 1 to N do 
          if a[i, j] > max then
          begin
            i_with_max := i;
            max := a[i, j];
          end;
      row_with_max_elem := a[i_with_max];
    end;
    
  procedure swap(var a, b: t_row);
    var 
      t: t_row;
    begin
      t := a;
      a := b;
      b := t;
    end;
    
  procedure write_matr(a: t_matr);
    var i, j: t_range;
    begin
      for i := 1 to N do
      begin
        writeln;
        for j := 1 to N do
          write(a[i, j]:5);
      end;
    end;
    
  var
    s: t_matr;
    x, y: t_row;
  begin
    read_matr(s);
    x := row_with_min_elem(s);
    y := row_with_max_elem(s);
    if x <> y then
      swap(x, y);
    write_matr(s);     
  end.

const N = 3;
type
t_range = 1..N;
t_row = array [t_range] of integer;
t_matr = array [t_range] of t_row;
procedure read_matr(var a: t_matr);
var i, j: t_range;
begin
for i := 1 to N do
for j := 1 to N do
readln(a[i][j]);
end;
 
function row_with_min_elem(a: t_matr): t_range;
var i, i_with_min, j: t_range;
    min: integer;
begin
i_with_min := 1;
min := a[1][1];
for i := 1 to N do
for j := 1 to N do
if a[i][j] < min then
 begin
  i_with_min := i;
  min := a[i][j];
 end;
row_with_min_elem := i_with_min;
end;
 
function row_with_max_elem(a: t_matr): t_range;
var i, i_with_max, j: t_range;
    max: integer;
begin
i_with_max := 1;
max := a[1][1];
for i := 1 to N do
for j := 1 to N do
if a[i][j] > max then
 begin
  i_with_max := i;
  max := a[i][j];
 end;
row_with_max_elem := i_with_max;
end;
procedure swap(var a, b: t_row);
var t:t_row;
begin
t := a;
a := b;
b := t;
end;
 
procedure write_matr(a: t_matr;st:string);
var i, j: t_range;
begin
writeln(st);
for i := 1 to N do
 begin
  for j := 1 to N do
  write(a[i][j]:5);
  writeln;
 end;
end;
 
var s: t_matr;
    x,y: t_range;
begin
read_matr(s);
write_matr(s,'Исходная матрица');
x := row_with_min_elem(s);
y := row_with_max_elem(s);
if x <> y then
 begin
  swap(s[x], s[y]);
  write_matr(s,'Обмен строк');
 end
else write('Максимальный и минимальный в одной строке обмена нет')
end.