Выборка из файла и постройка графика в Delphi

[Николай ПН]

Есть файл, в нем 16 чисел(рандомных), записанных в столбик, по ним нужно построить 2 графика, по 8 чисел. Первый график нечетные номера в столбике, второй четные. Само рисование мне понятно, но как сделать выборку элементов?

[Филантроп]

Считывайте в массив(или в 2 массива как удобнее)
и стройте график

[Николай ПН]

а можно какой нибудь примерчик? как это сделать

[Филантроп]

вот с 2 массивами

i:=1;n1:=0;n2:=0
while not eof(f) do
begin
Readln(f,a);
if odd(i) then begin
inc(n1)
masHe4eT[n1]:=a
end
else 
begin
inc(n2);
mas4eT[n2]:=a;
end;
inc(i);
end;

[Николай ПН]

procedure TForm1.FormCreate(Sender: TObject);
var
i,j,n1,n2: integer;
konstE: double;
masHe4eT,mas4eT: array [0..7] of integer;
begin
j:=1;n1:=0;n2:=0;

konstE:=0.43429;
Chart1.Repaint;





AssignFile(Vacuum,'Vacuum.txt');
reset(Vacuum);
series1.Clear;
while not eof(Vacuum) do
begin
for i:=1 to 16 do
begin
ReadLn(Vacuum,s);
if odd(j) then begin
inc(n1);
masHe4eT[n1]:=s;
if s<>0 then
series1.AddXY(i,ln(s)*konstE);
memo1.Lines.Add(floattostr(s));
end
else
begin
inc(n2);
mas4eT[n2]:=s;
end;
inc(j);
end;

end;
CloseFile(Vacuum);
end;

что то не то с этим кодом, по идее должно выводить 8 столбцов в Tchart(так как у меня Tbarseries). Что может быть не так*?

[Николай ПН]

Все равно не ясно, так как выборки нету, а ошибки есть

[Николай ПН]

кто нибудь знает в чем беда?