Написать модуль, который находит минимальный элемент каждой строки двумерного массива и меняет его местами

unit modul;
interface
const nmax=10;
type  matr=array[1..nmax,1..nmax] of integer;
procedure vvod(var mt:matr;var x,y:byte);
procedure Vyvod(var mt:matr;x,y:byte;s:string);
procedure min(var mt:matr;x,y:byte);
implementation
procedure vvod(var mt:matr;var x,y:byte);
{создаем исходную матрицу}
var i,j:byte;
begin
repeat
write('Количество строк от 2 до ',nmax,'=');
readln(x);
until x in [2..nmax];
repeat
write('Количество столбцов от 2 до ',nmax-1,'=');
readln(y);
until y in [2..nmax];
for i:=1 to x do
for j:=1 to y do
mt[i,j]:=-20+random(41);
end;
procedure Vyvod(var mt:matr;x,y:byte;s:string);
{вывод матриц}
var i,j:byte;
begin
writeln(s);
for i:=1 to x do
 begin
  for j:=1 to y do
  write(mt[i,j]:4);
  writeln;
 end;
end;
procedure min(var mt:matr;x,y:byte);
var j,jmn:byte;
    t:integer;
begin
jmn:=1;
for j:=2 to y do
if mt[x,j]<mt[x,jmn] then jmn:=j;
t:=mt[x,1];
mt[x,1]:=mt[x,jmn];
mt[x,jmn]:=t;
end;
end.

uses modul;
var a:matr;
    n,m,i:byte;
begin
vvod(a,n,m);
vyvod(a,n,m,'Исходная матрица');
for i:=1 to n do
min(a,i,m);
vyvod(a,n,m,'Обмен минимальных в строках с первыми');
end.