Дан файл целых чисел. Вывести количество содержащихся в нем серий (т.е. наборов последовательно расположенных одинаковых элементов) — Pascal(Паскаль)

Program Z;
Var
   F:File of integer;
   X,Xs,Kol:integer;
   Seria:boolean;
begin
   Assign(F,'C:\Ser.txt');
   {$I-}
   Reset(F);
   {$I+}
   Read(F,Xs);
   Seria:=False;
   Kol:=0;
   While not eof(F) do
      begin
         Read(F,X);
         If (X=Xs) and (not Seria) then
         begin
            Seria:=True;
            Kol:=Kol+1;
         end;
         If X<>Xs then
         begin
            Read(F,Xs);
            Seria:=False;
        end;
     End;
  Close(F);
  write(Kol);
end.