Как построчно считать файл? TP

[TwiX]

Есть такой файл:

honda F1 I1 O1 123666 1
ford F2 I2 O2 123666 0

Делаю так:

var
  src:text;
  cr: car;
  a:string;

begin
  Assign(src, 'source.txt');
  reset(src);

  while not Eof(src) do
  begin
    Read(src, a);
    Writeln(a);
  end;
  readln;
end.

1 раз выводит первую строчку, а потом происходит зацикливание

[eoln]

Readln(src, a);

[TwiX]

Да, тупанул...
Спасибо