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

const
  n = 10;

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

begin
  for i := 1 to n do
  begin
    a[i] := 10 - random(21);
    write(' ', a[i]:3);
  end;
  writeln();
  writeln('-------');

  i := 1;
  while a[i] <= 0 do
    Inc(i);
  s := 0;
  for i := i to n do
    s := s + a[i];

  writeln('-------');
  writeln(s);

end.