Чтение и пропуск строк в файле DELPHI 7

[Николай ПН]

ВОт теперь проблема. Текст программы

procedure TForm1.bpClick(Sender: TObject);
var
  F: textfile;
  A,S,D,H,G,N: real;
  st: string;
begin
  assignfile(F, 'TPG300_64_5F4.txt');
  reset(F);
    while not EOF(f) do
    begin
      readln(f,st);
      read(F,A,S,D,H,G,N);
      mmoutput.Lines.Add(floattostr(S));
    if G<>0 then
    begin
      series1.AddXY(s,ln(G)*0.43429);
    end;
    end;
  closeFile(F);
end;

файл который открывается

#		time[min]	PA1[Pa]		PA2[Pa]		PB1[Pa]		PB2[Pa]
 
1		0.667		0		0				0
2		1.1		0		0				0
3		1.517		0		0				0
4		1.95		0		0				0
5		2.367		0		0				0
6		2.8		0		0				0
7		3.217		0		0				0
8		3.65		0		0				0
9		4.067		0		0				0
10		4.5		0		0				0
11		4.917		0		0		2.9E+2		0
12		5.35		0		0		7.1E+0		0
13		5.767		0		0		2.8E+0		0
14		6.2		0		0		2.1E+0		0
15		6.617		0		0		1.9E+0		0
16		7.05		0		0		1.7E+0		0
17		7.467		0		0		1.6E+0		0
18		7.867		0		0		1.5E+0		0
19		8.317		0		0		1.4E+0		0
20		8.717		0		0		1.4E+0		0
21		9.167		0		0		1.3E+0		0
22		9.583		0		0		1.3E+0		0
23		10.017		0		0		1.3E+0		0
24		10.433		0		0		1.2E+0		0
25		10.867		0		0		1.2E+0		0
26		11.283		0		0		1.2E+0		0
27		11.717		0		0		1.2E+0		0
28		12.133		0		0		1.2E+0		0
29		12.567		0		0		1.2E+0		0
30		12.983		0		0		1.1E+0		0
31		13.417		0		0		1.1E+0		0

В Tchart по оси x располагается time[min], по оси y PB1[Pa]. В данном случае работает все идеально, как и должно работать, только в конце в mmoutput последнее число 0, хотя предпоследнее 13.417. Ну это не столько важно.
Пока не было readln(f,st); программа работала с проблемами, которыми я описывал выше.
Но когда в код добавил строку readln(f,st); все стало работать как надо.
Подскажите как это строка повлияла на программу?