Найти сумму элементов массива после второго отрицательного - Pascal

Формулировка задачи:

Найти сумму элементов массива после второго отрицательного.Паскаль

Решение задачи: «Найти сумму элементов массива после второго отрицательного»

Листинг программы

const
  n = 10;
 
var
  a: array [1..n] of integer;
  k, sum, i, j: integer;
 
begin
  randomize;
  for i := 1 to n do
  begin
    a[i] := -n div 2 + random(n);
    write(a[i]:5);
  end;
  k := 0;
  for i := 1 to n do
  begin
    if a[i] < 0 then
      inc(k);
    if k = 2 then
    begin
      j := i;
      break;
    end;
  end;
  writeln;
  if j > 2 then
  begin
    for i := j + 1 to n do
      sum := sum + a[i];
    writeln('Sum: ', sum);
  end
  else
    writeln('Нет элементов, удовлетворяющих условию. ');
end.

Объяснение кода листинга программы

Объявлены переменные: n - количество элементов в массиве (10); a - массив (10 элементов); k - счетчик отрицательных элементов; sum - сумма элементов; i, j - индексы элементов.
Заполнение массива случайными числами от -50 до 50.
Поиск второго отрицательного элемента: -цикл до заполнения массива; -если элемент отрицательный, увеличивается счетчик k; -если k=2, то элемент с индексом j отрицательный и цикл прерывается;
Вывод суммы элементов, начиная с третьего отрицательного элемента, если такой есть, иначе выводится сообщение об отсутствии удовлетворяющих элементов.