Составить программу формирования динамического прямоугольного масси-ва а из n строк и m столбцов случайными числами, сделать возможным его ре-дактирование. вычислить суммы элементов в каждой строке до k-ого столбца и вставить их перед k-столбцом. delphi 7

{$apptype console} var     a: array of array of real;     n,m,i,j,c: integer; procedure bbodgranic(); begin write('n = '); readln(n); write('m = '); readln(m); setlength(a,n,m); end; procedure zapolneniernd(); var i,j: integer; begin randomize; for i: = 0 to n-1 do       for j: = 0 to m-1 do               a[i,j]: =random*21-10; end; procedure bbibod(); var i,j: integer; begin write('': 3); for i: = 0 to m-1 do       write(i: 5,' '); writeln; for i: = 0 to n-1 do       begin       write(i: 2,' ');       for j: = 0 to m-1 do               write(a[i,j]: 5: 1,' ');       writeln;       end; end; procedure re(); begin write('i = '); readln(i); write('j = '); readln(j); write('a[',i,',',j,'] = '); readln(a[i,j]); end; procedure sumdok(); var     k,i,j: integer;     s: real; begin repeat write('k = '); readln(k); until k > 0; m: =m+1; setlength(a,n+1,m+1); if k > m then k: =m; for i: = 0 to n-1 do       begin       s: =0;       for j: = 0 to k-1 do               s: =s+a[i,j];       for j: = m downto k do               a[i,j]: =a[i,j-1];       a[i,k-1]: =s;       end; end; begin bbodgranic(); zapolneniernd(); bbibod(); repeat writeln; writeln('1 - изменить размеры массива'); writeln('2 - заполнить массив случайными числами'); writeln('3 - ввести новое значение заданного элемента'); writeln('4 - вычислить суммы элементов в каждой строке до k-ого столбца и вставить их перед k-столбцом.'); writeln('5 - вывод массива'); writeln('9 - выход'); readln(c); case c of 1: bbodgranic; 2:   begin   zapolneniernd;   bbibod;   end; 3: re; 4:   begin   sumdok();   bbibod   end; 5: bbibod; end until c = 9; end.

const max=30;

var c: array[1..max,1..max] of integer;

m,n,i,j,p,k,s: integer;

begin

randomize;

repeat

write('количество строк от 2 до ',max,' m=');

readln(m);

until m in [2..max];

repeat

write('количество столбцов от 2 до ',max,' n=');

readln(n);

until n in [2..max];

writeln('исходная матрица');

for i: =1 to m do

begin

for j: =1 to n do

begin

c[i,j]: =-10+random(21);

write(c[i,j]: 4);

end;

writeln;

end;

write('p=');

readln(p);

k: =0;

for i: =1 to m do

begin

s: =0;

for j: =1 to n do

if c[i,j]> 0 then s: =s+c[i,j];

if s> p then k: =k+1;

end;

write('количество строк по условию=',k)

end.