Вычислить в массиве сумму элементов от первого отрицательного и до конца — Pascal(Паскаль)

const
  n = 10;

var
  i, j, sum: integer;
  a: array [1 .. n] of integer;

begin
  for i := 1 to n do
  begin
    a[i] := 5 - random(10);
    write(' ', a[i]:3);
  end;
  writeln();
  sum := 0;
  i := 1;
  while (a[i] >= 0) and (i <= n) do
    Inc(i);
  for j := i to n do
    Inc(sum, a[j]);
  writeln('-------');
  writeln(sum);
  writeln();

end.