функция замены указанных строк местами в матрице, с последующим выводом на экран

[Kamikaze0]

program mass;

type
  mas = array[1..10, 1..10] of integer;

var
  n, i, j, x: integer;
  m: mas;

function init(a: mas; cnt: integer): mas;
var
  k, h: integer;
begin
  for k := 1 to n do
    for h := 1 to n do
      a[k, h] := 0;
end;

function rand(a: mas; cnt: integer): mas;
var
  v, w: integer;
begin
  for v := 1 to n do
    for w := 1 to n do
      a[v, w] := Random(100);
  Rand := a;
end;

function vvod(a: mas; cnt: integer): mas;
var
  r, t: integer;
begin
  for r := 1 to n do
    for t := 1 to n do
    begin
      writeln(' m[', r, ',', t, ']=');
      read(a[r, t]);
      vvod:=a;
    end;
end;

function print(a: mas; cnt: integer): mas;
var
  k1, k2: integer;
begin
  for k1 := 1 to n do
  begin
    writeln;
    for k2 := 1 to n do
      write(' a[', k1, ',', k2, ']=', a[k1, k2]);
  end;
end;


function Zamena(a:mas; cnt: integer): mas;



begin
  Writeln('Введите размерность квадратного массива, n');
  Readln(n);
  repeat
    
    writeln;
    writeln('1.)Заполнить массив вручную');
    writeln('2.)Процедура инициализации');
    writeln('3.)Заполнить массив рандомно');
    writeln('4.)Процедура вывода массива');
    writeln('5.)Выход');
    writeln('6.)Замена указанных строк местами');
    writeln('Введите цифру операции');
    
    readln(x);
    case x of
      1: m := vvod(m, n);
      2: m := init(m, n);
      3: m := rand(m, n);
      4: m := print(m, n);
      6:
    end;
  until x = 5;
end.

имеется программа. не пойму никак, как сделать функцию, в которой будет происходит следующая операция: когда человек нажмет кнопку 6- у него программа должна спросить, какие строки местами в матрице он хотел бы поменять;с последующим выводом результата на экран. кто сможет понятно объяснить и написать данную функцию замены?

[ViktorR]

Перестановку можно, например, выполнить так:
Запросил номера переставляемых строк - n и m.
В цикле по столбцам (число столбцов K):

...
for i := 1 to K do
begin
   t := Matr[n,i];
   Matr[n,i] := Matr[m,i];
   Matr[m,i] := t;
end;
...

Как-то так, ...