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

Uses Crt;
Var A:array[1..20,1..20] of real;
    i,j,n,m,imin,jmin:byte;
    t:real;
Begin
    ClrScr;
    Randomize;
    write('Введите кол-во строк: ');readln(n);
    write('Введите кол-во столбцов: ');readln(m);
    writeln('Исходная матрица');
    For i:=1 to n do
    Begin
      For j:=1 to m do
      Begin
        A[i,j]:=random*10-5;
        write(A[i,j]:6:2);
      End;
      writeln;
    End;
    imin:=1;jmin:=1;
    For i:=1 to n do
     For j:=1 to m do
      if A[i,j]<A[imin,jmin] then
      Begin
        imin:=i;
        jmin:=j;
      End;
    writeln('Min = ',A[imin,jmin]:6:2,' его индексы A[',imin,',',jmin,']');
    t:=A[1,1];
    A[1,1]:=A[imin,jmin];
    A[imin,jmin]:=t;
    writeln('Преобразованная матрица');
    For i:=1 to n do
    Begin
      For j:=1 to m do
       write(A[i,j]:6:2);
      writeln;
    End;
    readln;
End.