Упорядочить строки матрицы по убыванию их наибольших элементов. Использовать подпрограммы.

type
aa=array[1..100] of real;
var
a:array[1..100] of aa;
i,j,m,n:byte;
b:aa;
function max_s(b:aa):real;
var
i:byte;
max:real;
begin
  max:=b[1];
  for i:=2 to n do
    if b[i]>max then max:=b[i];
  max_s:=max;
end;
 
begin
  write('vvedite M '); readln(m);
  write('vvedite N '); readln(n);
  for i:=1 to m do
    for j:=1 to n do begin write('a[',i,',',j,'] '); readln(a[i,j]); end;
  writeln('ishodny massiv');
  for i:=1 to m do
    begin
      for j:=1 to n do write(a[i,j]:6:2);
      writeln;
    end;
  for i:=m downto 2 do
    for j:=2 to i do
      if max_s(a[j])>max_s(a[j-1]) then
        begin
          b:=a[j]; a[j]:=a[j-1]; a[j-1]:=b;
        end;
  writeln('rezultat');
  for i:=1 to m do
    begin
      for j:=1 to n do write(a[i,j]:6:2);
      writeln;
    end;
end.