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

Program pr9;
uses crt;
const a = 1; b = 2;     {интервал}
n = 7;      {количество точек}
var i, xekr, yekr, yg, xg, j:integer;
x, y, dx:real;
function f(x: real): real;
begin
f:= (2*exp(x))/x
end;
begin clrscr;
dx:= (b-a)/(n-1);       {шаг изменения x}
gotoxy(2,1);
textcolor(2);
write('y=(2*exp(x))/x');
for i:=21 downto 2 do begin
* gotoxy(14,i);
* textcolor(10); write('|');{<Alt>+179}
* delay(100);
* end;
gotoxy(14,1); write('^');
gotoxy(16,1); textcolor(13); *write('Y');
for i:=1 to 3 do * begin
* *gotoxy(14,4+(i-1)*6);
* *textcolor(10); write('|');{<Alt>+180}
* *gotoxy(9,4+(i-1)*6);
* *yg:=100*(4-i);
* *textcolor(13); write(yg:4);
* *delay(100);
* *end;
for j:=14 to 70 do begin
* *gotoxy(j,22);
* *textcolor(10); write('--');{<Alt>+196}
* *delay(100);
* *end;
gotoxy(72,22); write('>');
gotoxy(74,22);
textcolor(13); write('X');
for j:=1 to 5 do begin
* *gotoxy(14+(j-1)*14,22);
* *textcolor(10); write('-'); {<Alt>+194}
* *gotoxy(14+(j-1)*14,23);
* *xg:=(j-1);
* *textcolor(13); write(xg);
* *delay(80);
* *end;
for i:=0 to n-1 do *begin
* *x:=dx*i; *y:= f(x);
* *xekr:=round(14*x+14);
* *yekr:=round(22-y/15);
* *gotoxy(xekr,yekr);
* *textcolor(13); write('*');
* *delay(50);
* *end;
readkey;
end.