вывести график

[railya2015]

Дан файл следующего типа

861
737
632
568
551
571
602
617
598
542
459
372
305
274
287
336
404
464
496
486
432
345
241
134
31
-66
-160
-248
-318
-358
-357
-314
-240
-156
-83
-34
-8
11
44
103
186



нужно вывести график по данным точкам. В программировании новичок, кое-что я набросала, подскажите верно ли и как дальше

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, TAGraph, TASeries, Forms, Controls, Graphics,
  Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Chart1: TChart;
    Chart1LineSeries1: TLineSeries;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;
  f:textfile;
  FN: string;
implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
  var
    i,n,summa:integer;
    s:string;
    A:array of double;
    srednee:real;
  begin
    OpenDialog1.Execute;
    FN:=OpenDialog1.Filename;
    AssignFile(f,FN);
    Reset(f);
    n:=0;
    while not Eof(f) do
    begin
    readln(f,s);
    n:=n+1;
    end;
    reset(f);
    setLength(a,n);
    for i:=0 to n-1 do
    begin
    readln(f,s);
    a[i]:=strtofloat(s);
    //showmessage(floattostr(a[i]));
    end;
 Chart1LineSeries1.AddX(здесь не знаю что написать);
      closefile(f);
        end;


end.

[min@y™]

нужно вывести график по данным точкам.

точка – это минимум 2 координаты. а у тебя в файле что?
и забудь уже паскалевские файловые функции, навсегда!
вот тебе небольшой пример.