Сортировка Матрицы

const
  nmax=10;
var
  a: array[1..nmax,1..nmax] of integer;
  b: array[1..nmax] of integer;
  n,m,i,j,k: byte;
  tmp,max: integer;
begin
  repeat
    write('Ââåäèòå çíà÷åíèÿ ðàçìåðîâ ìàòðèöû n, m: ');
    readln(n,m);
  until (n in[1..nmax])and(m in[1..nmax]);
    for i:=1 to n do
    begin
      for j:=1 to m do
      begin
        a[i,j]:=random(99)+1;
        write(a[i,j]:4);
      end;
      writeln;
    end;
    writeln;
    for i:=1 to n do
    begin
      max:=a[i,1]; b[i]:=a[i,1];
      for j:=2 to m do
        if a[i,j]>max then b[i]:=a[i,j];
    end;
    writeln('Ìàêñèìóìû ïî ñòðîêàì:');
    for i:=1 to n do write(b[i]:4);
    writeln;
    for k:=2 to n do
      for i:=n downto k do
        if b[i-1]>b[i] then
        begin
          tmp:=b[i-1];
          b[i-1]:=b[i];
          b[i]:=tmp;
          for j:=1 to m do
          begin
            tmp:=a[i-1,j];
            a[i-1,j]:=a[i,j];
            a[i,j]:=tmp;
          end;
        end;
    writeln('Óïîðÿäî÷åííûå ìàêñèìóìû:');
    for i:=1 to n do write(b[i]:4);
    writeln;
    writeln('Óïîðÿäî÷åííàÿ ìàòðèöà:');
    for i:=1 to n do
    begin
      for j:=1 to m do
        write(a[i,j]:4);
      writeln;
    end;
end.