[fpc-pascal] System.Write broken?

[Elio Cuevas Gómez]

Hi, the folowing code enters infinite loop in the newest version of 
FreePascal:

program textfile;

var
  Archivo: Text;
  Linea: AnsiString;

begin
  Assign(Archivo, 'test.pp');
  Reset(Archivo);
  While not Eof(Archivo) do
  begin
    Read(Archivo, Linea);
    WriteLn(Linea);
  end;
  Close(Archivo);
end.

Am i doing something wrong?
This code worked in older releases of the compiler but loops forever in this 
version. Thanks.