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

uses crt;

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

begin;
  clrscr;
  writeln('Введите размер массива');
  readln(size);
  FOR i := 1 TO size do
  begin
    clrscr;
    writeln('Введите элементы массива');
    readln(t[i]);
  end;
  writeln('Введенные элементы');
  for i := 1 to size do
  begin
    writeln(t[i]);
  end;
  FOR i := 1 TO size do
  begin
    IF t[i] = 0 THEN
      num := i;
    FOR k := num + 1 TO size do
    begin
      summa := summa + t[k];
    end;
    writeln('Сумма элементов после первого 0 равна ', summa);
    writeln('Количество элементов после первого 0 равна ', size - i);
    halt;
  end;

end.