{ File: seqerror.pas }

program SequenzaVersioneErrata;
{ Legge una sequenza di 0 e 1 da un file e calcola la lunghezza della piu`
  lunga sequenza di 0 presente. }

var
  bit     : integer;    { numero in lettura }
  cont    : integer;    { contatore corrente }
  maxlung : integer;    { lunghezza massima }
  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  { si aggiorna o no maxlung }
    end
    else
      cont := 0    { si azzera il contatore }
  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. { SequenzaVersioneErrata }