Pascal/Turbo Pascal - Secuencia terminada en 0

Buenas tardes, Queria saber como hacer para que la secuencia terminada en 0 no me tome el 0 aca hay un programa de ejemplo, se que puedo empezar la variable cant en -1 pero no serial lo ideal. Muchas gracias

program Ejercicio7_SINTERMINAR; {$mode objfpc}{$H+}

VAR secuencia: integer;

FUNCTION promedio(N: integer): integer;
var cant, suma: integer;
begin
suma:=0;
cant:= 0;
repeat
read(N);
cant:= cant + 1;
suma:= suma + N;
promedio:= suma div cant;
until N = 0;
readln;
end;

BEGIN
write('Ingrese una secuencia: ');
writeln('El promedio de la secuencia es: ', promedio(secuencia));
readln;
END.

Hola, pruebalo asi.
Salu2.