Pascal/Turbo Pascal - Urgente, por favor

Hola, Estoy haciendo una practica para dentro de na, y acabo de descubrir algo mu gordo. Mi programa era escribir una lista de numeros enteros en un txt:
-5
-3
25
0
0
-21
1
0
0
45
9
El programa lo que debe hacer es que escriba SOLO un 0 cuando los lea consecutivos y los demas no ponerlos, al final debe decir si hay o no mas de 3 ceros CONSECUTIVOS. Como es logico hay que hacer un contador porq hay veis 2 grupos de ceros consecutivos separados.

Este es el codigo,perdon x poner 2 veces, esq no entra todo y sema colao
PROGRAM Prc1 (F,Output);

VAR
F:TEXT;
M:Integer;
CERO:Integer;
Cont:0..Maxint;
CuantosHay:Boolean;
BEGIN
Writeln('Matricula: bb0459 Nombre:Sanchez Martin,Hector');
Writeln;
Assign(F,'A:\Datosp1.txt'); (*Solo Turbo Pascal*)
Reset(F);
CuantosHay:=False;
Cont:=0;
CERO:=0;
Readln(F,M);
While not EOF(F) DO
BEGIN
Writeln(M);
Readln(F,M);
IF M=0 THEN
BEGIN
Writeln(CERO);
(*Se escribe un 0 y continuar SOLO leyendo
hasta que M sea distinto de 0*)
REPEAT
Readln(F,M);
Cont:=Cont+1;
UNTIL M<>0;
IF Cont>=3 THEN CuantosHay:=True;
Cont:=0; (*Contador se resetea cuando acaba una secuencia de ceros*)

END;

End;
writeln;
IF CuantosHay=True THEN
Writeln('En la entrada de datos al menos existe una secuencia de tres ceros consecutivos')
Else Writeln('En la entrada de datos no existen tres ceros consecutivos');
Close(F)
END.
AKI esta el codigo completo: EL PROBLEMA viene que cuando añado un 0 al final,xq NO ME APARECE el mensajito de si tengo o no mas de 3 veros consecutivos. Lo mismo o peor ocurre si borro todo y pongo solo ceros. Sabeis q pasa?
VENGA GRACIAS

saludos