В таблице А(1:N) подсчитать сумму значений элементов до первого нулевого элемента — Pascal(Паскаль)

program kkk;
uses crt;
const n=5;
var a:array[1..n] of integer;
i,s:integer;
label es;
begin
clrscr;
s:=0;
writeln('Введите таблицу:');
for i:=1 to n do
 begin
  readln(a[i]);
  if a[i]>0 then
   s:=s+a[i]
   else
   goto es;
end;
es: writeln('Сумма равна: ',s:2);
readln
end.

program kkk;
uses crt;
const n=5;
var a:array[1..n] of integer;
i,s:integer;
label es;
begin
clrscr;
s:=0;
writeln('Введите таблицу:'); {ввод данных массива}
for i:=1 to n do
readln(a[i]);
for i:=1 to n do  {проверка до первого 0 в таблице}
 begin
  readln(a[i]);
  if a[i]>0 then
   s:=s+a[i]
   else
   goto es;
end;
es: writeln('Сумма : ',s:2); {результат}
readln
end.