Дана последовательность чисел оканчивающихся на 0 найти сумму и произведение этих чисел(нужно написать программу в паскале

Var a,s,p:integer;
begin
s:=0;
p:=1;
write('Введите число: ');
readln(a);
while a<>0 do
begin
s:=s+a;
p:=p*a;
write('Введите число: ');
readln(a)
end;
writeln('Сумма чисел в последовательности: ',s);
writeln('Произведение чисел в последовательности: ',p)
end.