Задана матрица (двумерный массив) A размером N x М

uses crt;
const nmax=15;
var a:array[1..nmax,1..nmax] of real;
    b:array[1..nmax] of real;
    m,n,i,j:byte;
    sg,x:real;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    a[i,j]:=9*random;
    write(a[i,j]:5:2);
   end;
  writeln;
 end;
for i:=1 to n do
 begin
  b[i]:=0;
  for j:=1 to m do
  b[i]:=b[i]+a[i,j];
 end;
writeln('Вектор сумм строк:');
sg:=1;
for i:=1 to n do
 begin
  write(b[i]:0:2,' ');
  sg:=sg*b[i];
 end;
sg:=exp(ln(sg)/n);
writeln;
writeln('Среднее геометрическое=',sg:0:2);
for i:=1 to n-1 do
for j:=i+1 to n do
if b[i]>b[j] then
 begin
  x:=b[i];
  b[i]:=b[j];
  b[j]:=x;
 end;
writeln('Отсортированный вектор:');
for i:=1 to n do
write(b[i]:0:2,' ');
readln
end.

uses crt;
const nmax=30;
   var a:array[1..nmax,1..nmax] of real;
   b:array[1..nmax] of real;
   m,n,i,j:byte;
   sg,x:real;
begin
   clrscr;
   randomize;
   repeat
   write('Количество строк до ',nmax,' n=');
   readln(n);
   until n in [1..nmax];
   repeat
   write('Количество столбцов до ',nmax,' m=');
   readln(m);
   until m in [1..nmax];
   writeln('Исходная матрица:');
   for i:=1 to n do
begin
   for j:=1 to m do
   begin
   a[i,j]:=9*random;
   write(a[i,j]:5:2);
end;
   writeln;
end;
   for i:=1 to n do
begin
   b[i]:=0;
   for j:=1 to m do
   b[i]:=b[i]+a[i,j];
end;
   writeln('Вектор сумм строк:');
   sg:=1;
   for i:=1 to n do
begin
   write(b[i]:0:2,' ');
   sg:=sg*b[i];
end;
   sg:=exp(ln(sg)/n);
   writeln;
   writeln('Среднее геометрическое=',sg:0:2);
   for i:=1 to n-1 do
   for j:=i+1 to n do
   if b[i]>b[j] then
begin
   x:=b[i];
   b[i]:=b[j];
   b[j]:=x;
end;
   writeln('Отсортированный вектор:');
   for i:=1 to n do
   write(b[i]:0:2,' ');
   readln
end.