Вывести на экран заданные значения функции и её график

uses GraphAbc;
var x,xz,ii,yz,zz,gd:integer;
i,z:string;
p,t:array of point;
begin
window.Title:='РГР Лапшин О.В. 102-ТН';
writeln('Нажмите любую клавишу для построения графика');
readln;
clearWindow;
setPenColor(clblue);
setPenWidth(2);
line(10,0,10,270);//Y
line(0,250,950,250);//X
setBrushColor(clblack);
setlength(p,3);
setlength(t,3);
p[0].x:=5 ; 
p[0].y:=10 ; 
p[1].X:=15 ; 
p[1].Y:=10 ; 
p[2].X:=10 ; 
p[2].Y:=0 ; 
t[0].X:=940 ; 
t[0].Y:=245 ; 
t[1].X:=940 ; 
t[1].Y:=255 ; 
t[2].X:=950 ; 
t[2].Y:=250 ; 
setpenCOLOR(CLBLACK);
polygon(p);
polygon(t);
setBrushColor(clWhite);
setFontSize(14);
textOut(15,0,'y');
textOut(940,255,'x');
setpenwidth(3);
setpencolor(clred);
setWindowSize(950,500);
x:=0;
xz:=10;
 
setpencolor(clblack);
ii:=0;
while(xz<=950)do
begin
i:=inttostr(ii);
line(xz,246,xz,254);
textOut(xz,255,i);
ii+=1;
xz+=40;
end;
yz:=250;
zz:=1;
while(yz>0)do
begin
z:=inttostr(zz);
line(6,yz,15,yz);
textOut(-1,yz-40,z);
zz+=1;
yz-=40;
end;
sleep(50);
setPenColor(clred);
while(x<=950) do
begin
for gd:=90 to 180 do
begin
Arc(x+92,250,80,gd,90);
sleep(5);
end;
 
for gd:=170 to 330 do
begin
Line(x+92,gd,x+92,170);
sleep(5);
end;
for gd:=270 to 360 do
if(x<=800) then
begin
arc(x+92,250,80,270,gd);
sleep(5);
end;
x+=160;
end;
end.