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

uses crt;

var
  i, size, num, summa: integer;
  a: array [1 .. 10000] of integer;

label 1;

begin;
  clrscr;
  writeln('Введите размер массива');
  readln(size);
  writeln('Введите элементы массива');
  FOR i := 1 TO size do
  begin
    readln(a[i]);
  end;
  FOR i := 1 TO size do
  begin
    IF a[i] = 0 THEN
    begin
      num := i;
      GOTO 1;
    end;
  end;
1:
  FOR i := num + 1 TO size do
  begin
    IF a[i] < 0 THEN
      summa := summa + a[i];
  end;
  writeln('Сумма отрицательных элементов после первого 0 равна ', summa);

end.