program SequenzaVersioneErrata;
var
bit : integer;
cont : integer;
maxlung : integer;
leggi : text;
scrivi : text;
begin
assign(leggi, 'SEQUENZA.DAT');
reset(leggi);
cont := 0;
maxlung := 0;
repeat
read(leggi, bit);
if bit = 0 then
begin
cont := cont + 1;
if cont > maxlung then maxlung := cont
end
else
cont := 0
until eof(leggi);
close (leggi);
assign(scrivi, 'RISUL.DAT');
rewrite(scrivi);
writeln(scrivi, 'la max lunghezza di una stringa di zeri = ');
write(scrivi, maxlung); writeln;
close(scrivi)
end.