Создать двумерный массив, поменять местами первую строку и строку, содержащую минимальный элемент. Массив вроде как создал,не получается найти минимальный элемент и поменять строки — Pascal(Паскаль)

program massiv2;
uses crt;
var a:array[1..15,1..14] of integer;
    i,j,m,n,mini: byte;
    min,x:integer;
begin
clrscr;
writeln('vvedite n, m');
readln(n,m);
randomize;
writeln('Исходная матрица:');
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(80);
min:=a[1,1];
mini:=1;
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    write(a[i,j]:4);
    if a[i,j]<min then
     begin
      min:=a[i,j];
      mini:=i;
     end;
   end;
  writeln;
 end;
writeln('Минимальный элемент=',min,'  в строке ',mini);
if mini=1 then write('Обмена нет!')
else
 begin
  for j:=1 to m do
   begin
    x:=a[1,j];
    a[1,j]:=a[mini,j];
    a[mini,j]:=x;
   end;
  writeln('Обмен строки 1 и ',mini);
  for i:=1 to n do
   begin
    for j:=1 to m do
    write(a[i,j]:4);
    writeln;
   end;
  end;
readln
end.