Помогите с задачей, Модуль Graph Опции

[SkyRideR]

Всем привет. Нужно написать прогу, её задача в том чтобы считала кол-во символов в слове(текстовый), затем кол-во этих символов заносила в номер массива которому соответствует кол-во этих символов. После этого строила график отображая в каком номере массива, сколько символов. Большую часть сделал, а вот график
как-то не получается сделать

program dsv;
uses graph;
var
a : array[1..25] of integer;
GrDriver, GrMode : integer;
ffile : text;
buf : string;
i : integer;
begin
assign(ffile,'file1.txt');
reset(ffile);
while not eof(ffile) do begin
readln(ffile,buf);
while (pos(' ',buf) <> 0) do begin
i := pos(' ', buf);
inc(a[length(copy(buf, 1, i-1))]);
delete(buf, 1, i);
end;
inc(a[length(buf)]);
end;

begin
GrDriver := detect;
GrMode := 0;
initgraph(GrDriver, GrMode, '');

line(50,50,50,300);
line(50,300,500,300);
moveto(50*i, 300-(a[i]*4));
lineto(50*i, 300-(a[i]*4));

readln;
CloseGraph;
close(ffile);
end; end.

[SkyRideR]

в общем отчасти разобрался как, что делать, теперь только не получается сам график достроить, чтобы начиная с первой позиции он проводил линию в следующую позицию и т.д. до конца
program dsv;
uses graph;
var
a : array[1..25] of integer;
GrDriver, GrMode : integer;
ffile : text;
buf, r, t, q, w : string;
i : integer;
begin
assign(ffile, 'c:\ctix.txt');

reset(ffile);
while not eof(ffile) do begin
readln(ffile, buf);
while (pos(' ', buf) <> 0) do begin
i := pos(' ', buf);
inc(a[length(copy(buf, 1, i-1))]);
delete(buf, 1, i);
end;
inc(a[length(buf)]);
end;
close(ffile);

GrDriver := detect;
GrMode := 0;
initgraph(GrDriver, GrMode, '');
for i := 1 to 25 do begin
r:='Y';
t:='X';
str(a[i], w);
str(i, q);
line(10,10,10,300);
line(10,300,600,300);
moveto(20*i, 300-(a[i]*4));
lineto(20*i, 300);
moveto(0, 10);
outtextxy(0, 10, r);
moveto(490, 310);
outtextxy(590, 310, t);
moveto(20*i, 290-(a[i]*4));
outtextxy(20*i, 290-(a[i]*4), w);
moveto(20*i, 290-(a[i]*4));
outtextxy(20*i, 310, q);
{moveto(10*i, (a[i]*4));
line(10,300, (a[i]*4),(a[i]*4) );} вот тут у меня и не получается не могу понять как координаты задать правильно
end;
readln;
CloseGraph;

end.