Создать массив. Напечатать его в общепринятом виде. Упорядочить его согласно условию

const
  nmax=20;
var
  a: array[1..nmax,1..nmax] of integer;
  n,m,i,j,im,jm,tmp: integer;
begin
  write('Введите размеры массива n, m: ');
  readln(n,m);
  writeln('Исходный массив:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(199)-99;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  im:=1; jm:=1;
  for i:=1 to n do
    for j:=1 to m do
      if a[i,j]<a[im,jm] then 
      begin
        im:=i;
        jm:=j;
      end;
  writeln('Минимальный элемент массива = ',a[im,jm],'; в ',im,' строке');
  for i:=2 to m do
    for j:=m downto i do
      if a[im,j-1]>a[im,j] then
      begin
        tmp:=a[im,j-1];
        a[im,j-1]:=a[im,j];
        a[im,j]:=tmp;
      end;
  writeln('Преобразованный массив:');
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(a[i,j]:4);
    writeln;
  end;
end.