В КАЖДОЙ СТРОКЕ ПРОСУММИРОВАТЬ ЭЛЕМЕНТЫ СТОЯЩИЕ ПОСЛЕ ПЕРВОГО ОТРИЦАТЕЛЬНОГО.

program SumAfterNegative;
var
  myArray: array [1..4, 1..6] of integer;
  lin, col, temp: byte;
  Sum: longint;
begin
{ ЗАПОЛНЕНИЕ }
  writeln ('Двумерный массив:');
  Randomize;
  for lin := 1 to 4 do
  begin
    for col := 1 to 6 do
    begin
      myArray[lin, col] := Random (2000) - 999; { PascalABC позволяет myArray[lin, col] := Random (-999, 999); }
      write (myArray[lin, col]:6);
    end;
    writeln;
  end;
{ ОБРАБОТКА И ВЫВОД }
  writeln ('Результаты поиска:');
  for lin := 1 to 4 do
  begin
    write ('Строка номер ', lin:1, ' ... ');
    col := 1;
    while (col < 6) and (myArray[lin, col] >= 0) do inc (col); // без break
    if col = 6 then writeln ('Неопределённая сумма — слагаемые отсутствуют!!!')
    else
    begin
      Sum := myArray[lin, col + 1];
      for temp := col + 2 to 6 do Sum := Sum + myArray[lin, temp];
      writeln ('Сумма равна ', Sum:0);
    end;
  end;
  writeln('Ознакомьтесь с результатом, потом нажмите Enter для выхода');
  readln;
end.