Pascal/Turbo Pascal - Runtime Error 100

program ej2guia3;

var

 sec: file of char;

 v : char;

 error, cont: integer;

begin

 Assign (sec, 'archivo.txt');

 {$I-}

 Reset (sec);

 error:= IOResult;

 {$I+}

 if error <> 0 then

 begin

   writeln('Error: el archivo archivo.txt exite?');

   halt(2);

 end;

 cont:=0;

 read(sec, v);

 while not Eof (sec) do

 begin

   while (v = ' ') do

   begin

     read(sec, v);

   end;

   cont := cont + 1;

   while (v <> ' ') do

   begin

     read(sec, v);

   end;

 end;

 writeln('La cantidad de palabras es: ', cont);

 close(sec)

end.

Uses Crt;

Var

    Archivo: Text;

    Linea: String;

    Cont,CantPalabra: Byte;

Begin

    ClrScr;

    Assign(Archivo, 'D:\texto.txt');

    {$I-}Reset(Archivo);{$I+}

    If  IOResult = 0 then

      Begin

        CantPalabra:=0;

        While Not EOF(Archivo) Do

          Begin

            ReadLn( Archivo,Linea);

            Linea:=Linea+' ';

            For Cont:=1 To Length(Linea) Do

                If (Linea[Cont]<>' ') And (Linea[Cont+1]=' ') Then CantPalabra:=CantPalabra+1;

          End;

        Close(Archivo);

        WriteLn('Cantidad de Palabras: ',CantPalabra);

      End

    Else WriteLn('Error! en el archivo...');

    ReadKey

End.