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

type
 
var
  a:array[1..5, 1..5] of integer;
  x:array[1..100] of integer;
  i, j, k, l, l2, j2:integer;
begin
  l:=1;
  for i:=1 to 5 do
    for j:=1 to 5 do 
      a[i,j]:=random(100)-50;
  for i:=1 to 5 do begin
    for j:=1 to 5 do 
      write(a[i,j]:4);
    writeln;
  end;
  write('k=');
  read(k);
  for i:=1 to 5 do begin
    for j:=1 to k do begin
      if a[i,j]>0 then begin
      for j2:=1 to 5 do begin
      x[l]:=x[l]+a[i,j2];
      end;
      l:=l+1;
      end
      else
        break;
    end;
  end;
  writeln;
  for l2:=1 to l-1 do
    write(x[l2]:4);
end.

program Project1;
const
  size = 5;
var
  a: array[1..size, 1..size] of integer;
  x: array[1..size] of integer;
  i, j, k, kx, ix: integer;
 
begin
 
  randomize;
  for i:=1 to size do
    for j:=1 to size do
      a[i,j]:=random(100)-30;  {Заполнение двумерного массива случайными числами}
  for i:=1 to size do
    begin
      for j:=1 to size do
        write(a[i,j]:4);       {Вывод двумерного массива в консоль}
      writeln;
    end;
 
  write('k=');
  readln(k);                {Ввод в программу числа k}
  ix:= 0;
  for i:=1 to size do
    begin
      kx:= 0;
      flag:= true;
      for j:=1 to size do
        begin
          if (a[i,j] <= 0) and (kx < k) then   {Условие для проверки элементов массива на отрицательное значение}
            begin
              kx:= 0;
              break;
            end
          else
            if (a[i,j] > 0) then
              inc(kx);
 
        end;
      writeln(i,' row. Consecutive positive numbers: ',kx);
      if (kx = k) then
        begin
          inc(ix);
          x[ix]:= 0;                 {Предварительное обнуление элемента одномерного массива}
          for j:=1 to size do
            x[ix]:= x[ix] + a[i,j];  {Суммирование значений элементов строки}
        end;
 
    end;
 
 
  writeln;
  for i:= 1 to ix do
    write(x[i]:4);
  readln;
end.

const
  n = 5;
  
var
  a : array [1..n, 1..n] of Integer;
  x : array [1..n] of Integer;
  row, col, k, rows, count : Integer;
begin
  { заполнение }
  Randomize;
  for row := 1 to n do
    for col := 1 to n do
      a[row, col] := Random(100) - 30;
      
  { вывод }
  for row := 1 to n do
    begin
      for col := 1 to n do
        Write(a[row, col]:4);
      WriteLn;
    end;
    
  Write('k = '); ReadLn(k);
  if (k < 1) or (k > n) then begin WriteLn('Не могёт такого быть!'); Halt; end;
  
  rows := 0;
  for row := 1 to n do
    begin
      
      { количество положительных с 1-ой по k-ую колонку данной строки }
      count := 0;
      for col := 1 to k do
        if a[row, col] > 0 then
          inc(count);
      
      { подходящая строка }
      if count = k then
        begin
          inc(rows);
          x[rows] := 0;
          for col := 1 to n do
            inc(x[rows], a[row, col]);
        end;
    end;
    
  { Вывод результата }
  if rows = 0 then
    Write('Нет подходящих строк.')
  else
    for row := 1 to rows do
      Write(x[row]:4);
end.

      if count >= k then