[Страдалецъ]

Так попробуйте:

Код:

program Project37;

{$APPTYPE CONSOLE}

uses
  SysUtils,Dialogs;
Var
  f: File of Integer;
  i,PrevValue,Value,SeriesLen,Series: Integer;

begin
AssignFile(f, 'c:\IntFile.dat');

Rewrite(f);
for i := 1 to 100
do begin
   if Random(2) = 1
   then Value := Random(100);
   Write(f, Value);
   end;
Close(f);

Reset(f);
Read(f, PrevValue);
Series := 0;
while not Eof(f)
do begin
    Read(f,Value);
    if Value <> PrevValue
    then begin
           if SeriesLen > 1
           then Inc(Series);
           PrevValue := Value;
           SeriesLen := 1;
           end
    else begin
          Inc(SeriesLen);
          end;
    end;
Close(f);
ShowMessage(IntToStr(Series));
end.