Написать программу на языке паскаля авс ***дана матрица. сформировать одномерный массив, элементами которого являются суммы тех строк, которые начинаются с k идущих подряд положительных чисел***

Const n = 15; var a: array[1..n] of integer;   i, j, m: integer; begin   // генерация и вывод   randomize;   for i : = 1 to n do a[i] : = random(19)-8;   for i : = 1 to n do write(a[i], ' ');   writeln;       // сортировка   for i : = 1 to n-1 do begin     m : = i;     for j : = i+1 to n do       if a[j] < a[m] then m : = j;             if m < > i then begin       j : = a[m];       a[m] : = a[i];       a[i] : = j;     end;   end;   for i : = 1 to n do write(a[i], ' ');   writeln;       // поиск наибольшей разности   m : = a[2] - a[1];   for i : = 3 to n do     if a[i] - a[i-1] > m then        m : = a[i] - a[i-1];   writeln ('разность = ', m); end.

Uses crt; var a,b: array[1..100] of integer; i,j,k,n: integer; procedure rmassr; begin       for i: =1 to n do begin             a[i]: =random(10);       end; end; procedure rmassy; begin       for i: =1 to n do begin             readln(a[i]);       end; end; procedure rmass(); begin       for i: =1 to n do begin             write(a[i],' ');       end; end; procedure newmass; begin       for i: =1 to n do begin             if a[i] > 0 then b[i]: =a[i];       end;       for i: =1 to n do begin             j: =j+b[i];       end;       writeln('summa = ',j); end; begin clrscr; randomize; write('длина массива  '); readln(n); write('1-random; 2-в ручную'); readln(k); if k = 1 then       rmassr() else rmassy(); rmass(); writeln(); newmass(); readln end.