Построение графика функции с использованием процедуры или модуля Graph

uses crt,graphABC;
const n=10;
      e=0.25;
function f(x:real):real;
begin
f:=exp(-x/e)/e
end;
var x,y:array[1..n] of real;
    i,xc,yc:integer;
    mx,my:real;
    s:string;
begin
writeln('Введите элементы массива Х');
for i:=1 to n do
 begin
  write('x[',i,']=');
  read(x[i])
 end;
i:=1;
while i<=n do
 begin
  y[i]:=f(x[i]);
  i:=i+1;
 end;
clrscr;
writeln('Исходные данные');
writeln('------------------');
writeln(' N | X[i] | Y[i] |');
writeln('------------------');
i:=1;
while i<=n do
 begin
  writeln('|',i:2,'|',x[i]:6:3,'|',y[i]:6:3,'|');
  i:=i+1;
 end;
writeln('------------------');
writeln('Построить график масива Y');
readln;
clrscr;
hidecursor;
xc:=windowwidth div 10;
yc:=windowheight-40;
line(0,yc,windowwidth,yc);
line(xc,0,xc,windowheight);
mx:=(windowwidth-60)/(x[n]-x[1]);
my:=(yc-30)/y[1];
for i:=1 to n do
 begin
  line(xc+round(x[i]*mx),yc-3,xc+round(x[i]*mx),yc+3);
  str(x[i]:0:1,s);
  textout(xc+round(x[i]*mx)-10,yc+15,s);
 end;
for i:=1 to 6 do
 begin
  line(xc-3,yc-round(i*my),xc+3,yc-round(i*my));
  str(i,s);
  textout(xc-20,yc-round(i*my),s)
 end;
setpenwidth(2);
moveto(xc+round(x[1]*mx),yc-round(y[1]*my));
for i:=1 to n do
lineto(xc+round(x[i]*mx),yc-round(y[i]*my))
end.