Построение графиков функций (перевести в PascalABC) - Pascal ABC

program chukreev;
uses graph,crt;
var y:array[1..101] of real;nom:integer;
i,k,l,n,mx,dr,mo:integer; a,b,x,h,ymax,ymin,my: real;
xs: string [5]; Yx:string[20];
begin
clrscr;
writeln('                                   Виды функций');
writeln('1: y:=sqr(x)-x+1');writeln('2: y:=sin(x)/cos(x)');
writeln('3: y:=cos(x)');writeln('4: y:=sqrt(x)');
writeln('5: y:=3*x+1');writeln('6: y:=-x/2'); writeln('7: y:=exp(3*ln(x))');
writeln('8: y:=1/x'); writeln('9: y:=sqr(x)');
 
write('введите номер:');readln(nom);
 
write('введите начальное значение x='); readln(a);
write('введите конечное значение x=');  readln(b);
write('введите число точек =');         readln(n);
  ymax:=-maxint;ymin:=maxint; h:=(b-a)/n;
  readln;
 
x:=a;
for i:=1 to n do
begin
Case nom of
{1: y[i]:=sqr(x)-x+1;
{2: y[i]:=sin(x)/cos(x);}
{3: y[i]:=cos(x);
{4: y[i]:=sqrt(x);}
{5: y[i]:=3*x+1;
{6: y[i]:=-x/2;
{7: y[i]:=exp(3*ln(x));}
8: y[i]:=1/x;
9: y[i]:=sqr(x);
 
end;
if y[i]>ymax then ymax:=y[i];
if y[i]<ymin then ymin:=y[i];
x:=x+h; end;
dr:=detect; initgraph(dr,mo,'c:\tp7\bgi');
mx:=round((getmaxx-50)/n);
my:=(ymax-ymin)/(getmaxy-20);
k:=round(abs(ymin)/my);
line(20,20,20,getmaxy-20);
outtextxy(18,20,'^'); outtextxy(10,10,'y');
line(20,getmaxy-20-k,getmaxx-20,getmaxy-20-k);
outtextxy(getmaxx-20,getmaxy-22-k,'>');
outtextxy(getmaxx-20,getmaxy-15-k,'x');
Case nom of
1: Yx:='sqr(x)-x+1';
2: Yx:='sin(x)/cos(x)';
3: Yx:='cos(x)';
4: Yx:='sqrt(x)';
5: Yx:='3*x+1';
6: Yx:='-x/2';
7: Yx:='exp(3*ln(x))';
8: Yx:='1/x';
9: Yx:='sqr(x)';
end;
outtextxy(getmaxx-100,getmaxy-10,Yx); X:=A;
{outtextxy(getmaxx-100,getmaxy-10,'y=x^2-X+1'); X:=A;}
for i:=1 to n do
begin
str(x,xs); l:=round((y[i]-ymin)/my);
if(i-1) mod 5=0 then outtextxy((i-1)*mx+20,getmaxy-15-k,xs);
outtextxy((i-1)*mx+20,getmaxy-20-l,'*');x:=x+h
end;
repeat until keypressed; closegraph
end.