Найти минимальный элемент матрицы и поменять его местами с первым элементом

{$R-}
uses crt;
const nmax=20;
type
  Tmas=^TTmas;{одна строка матрицы}
  TTmas=array[1..1] of integer;
  Tmatr=^TTmatr;{матрица-массив указателей на строки}
  TTmatr=array[1..1] of Tmas;
var
  a:Tmatr;
  n,m,i,j,mn,imn,jmn,x:integer;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' m=');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' n=');
readln(n);
until n in [1..nmax];
getmem(a,sizeof(TTmatr)*m);{выделяем память под указатели на строки}
for i:=1 to m do
getmem(a^[i],sizeof(integer)*n);{для каждой строки память для хранения данных}
writeln ('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    repeat
    a^[i]^[j]:=random(50);
    until a^[i]^[j]<>0;{создаем матрицу без нолей}
    write(a^[i]^[j]:4);
   end;
  writeln;
 end;
writeln;
mn:=a^[1]^[1];
imn:=1;
jmn:=1;
for i:=1 to m do
for j:=1 to n do
if a^[i]^[j]<mn then
 begin
  mn:=a^[i]^[j];
  imn:=i;
  jmn:=j;
 end;
writeln('Минимальный элемент a[',imn,',',jmn,']=',mn);
if (imn=1)and(jmn=1) then write('Он первый, обмена нет')
else
 begin
  x:=a^[1]^[1];
  a^[1]^[1]:=a^[imn]^[jmn];
  a^[imn]^[jmn]:=x;
  writeln('Обмен первого и минимального');
  for i:=1 to m do
   begin
    for j:=1 to n do
    write(a^[i]^[j]:4);
    writeln;
   end;
 end;
for i:=1 to m do
freemem(a^[i],sizeof(integer)*n); {освобождаем память в обратном порядке, сначала удалим строки}
freemem(a,sizeof(TTmatr)*m); {потом указатели на них}
readln
end.