[[seoane]]

El problema es que si el archivo de texto no termina en un salto de linea nunca saldrías de esta bucle:

Código Delphi [-]
while not (P^ in [#10, #13]) do Inc(P);