Pascal/Turbo Pascal - programa que imprima la suma de los numeros ingresados y cuantos numeros se ingreso

program suma_contador;
uses crt;
var i,s,num,cant,cont:integer;
begin
clrscr;
s:=0;
cant:=0;
writeln('Diagarama de flujo que permite ingresasr 100 numeros y que acaba al ingresar 0');
writeln;
for i:=0 to 100 do
begin
writeln('Ingrese un numero por teclado');
readln(num);
if (num=0) then
begin
writeln('Usted acaba de digitar el cero (0) y en este momento termina la ejecucion del ejercicio');
i=i+100
end
else
begin
s:=s+num;
cant:=cant+1;
end;
end;
writeln('El total de la suma de los numeros ingresados es: ',s);
writeln('La cantidad de numeros ingresados hasta el momento que digito 0 es: ',cant);
writeln;
writeln('Presione una tecla para terminar');
end.

Hola, espero esto te ayude.
Salu2.