Выполнить обработку элементов прямоугольной матрицы

const
  nmax=15;
type
  mas=array[1..nmax] of integer;
  matr=array[1..nmax+1,1..nmax] of integer;
var
  a:matr;
  f:mas;
  i,j,n,m,s,s_total:integer;
begin
  randomize;
  writeln('Zadaite razmery matritsy');
  repeat
    write('Kolichestvo strok, ne bolee ',nmax,': ');
    readln(n);
    write('Kolichestvo stolbtsov, ne bolee ',nmax,': ');
    readln(m);
  until (n in [1..nmax]) and (m in [1..nmax]);
  writeln('Matritsa:');
  for i:=1 to n do
    for j:=1 to m do
      begin
        a[i,j]:=random(15);
        write(a[i,j]:4);
        if j=m then
          writeln;
      end;
  writeln;
  s_total:=0;
  {Ishem summy strok i obshuyu summu}
  for j:=1 to m do
    begin
      s:=0;
      for i:=1 to n do
        inc(s,a[i,j]);
      f[j]:=s;
      inc(s_total,s);
    end;
  {Vstavlyaem stroku}
  for i:=n downto 1 do
    for j:=1 to m do
      a[i+1,j]:=a[i,j];
  for j:=1 to m do
    a[1,j]:=f[j];
  inc(n);
  {Vyvod}
  for i:=1 to n do
    for j:=1 to m do
      begin
        if i=1 then
          write(a[i,j]*100/s_total:4:0,'%')
        else
          write(a[i,j]:5);
        if j=m then
          writeln;
      end;
end.