график по точкам из .тхт файла

uses graph;
var f:text;
    x,y:integer;
    n,i,max,xc,yc:integer;
    mx,my:real;
    s:string;
begin
assign(f,'dannye.txt');
reset(f); {прочитаем файл 1 раз,
определим количество точек и максимальное значение
для отрисоаки координатных осей}
n:=-1;
max:=0;
while not eof(f) do
 begin
  n:=n+1;
  read(f,y);
  if y>max then max:=y;
 end;
close(f);
{инициируем графический режим}
xc:=0;
initgraph(xc,yc,'');
xc:=40;{начало координат}
yc:=getmaxY-40;
mx:=(getmaxX-2*xc)/n;{масштабы по оси Х и У}
my:=(yc-40)/max;
{ось Х}
line(xc,yc,getmaxX-xc,yc);
outtextXY(getmaxX-xc-10,yc-15,'X');
for i:=0 to n do
 begin
  line(xc+round(i*mx),yc+3,xc+round(i*mx),yc-3);
  str(i,s);
  outtextXY(xc+round(i*mx),yc+10,s);
 end;
{ось Y}
line(xc,yc,xc,20);
outtextXY(xc+10,25,'Y');
for i:=0 to max div 10+1 do
 begin
  line(xc-3,yc-round(i*my*10),xc+3,yc-round(i*my*10));
  str(i*10,s);
  outtextXY(xc-25,yc-round(i*my*10),s);
 end;
{график}
reset(f);{читаем файл 2 раз, берем координаты}
moveto(xc,yc);
for i:=0 to n do
 begin
  read(f,y);
  Setcolor(12);
  lineto(xc+round(i*mx),yc-round(y*my));
  Setcolor(10);
  circle(xc+round(i*mx),yc-round(y*my),2);
 end;
close(f);
readln
end.