Вывести в координатных осях график, заданный функцией

uses graphABC;
function F(t:real):real;
begin
F:=t*(exp(-2*t)+cos(2*t));
end;
var xc,yc,n,i:integer;
    t,dt,max,min,z,x,y,mx,my:real;
    s:string;
begin
xc:=30;
yc:=windowheight div 2;
line(0,yc,windowwidth-xc,yc);
line(xc,0,xc,2*yc);
t:=0;
dt:=0.1;
max:=F(x);min:=F(x);
while t<=2*pi do
 begin
  if F(t)>max then max:=F(t);
  if F(t)<min then min:=F(t);
  t:=t+dt;
 end;
if max>abs(min) then z:=max
else z:=abs(min);
mx:=(windowwidth -40)/(2*pi);
my:=(yc-40)/z;
if z>2*pi then n:=round(z)
else n:=round(2*pi);
for i:=1 to n+1 do
 begin
  line(xc+round(i*mx),yc-3,xc+round(i*mx),yc+3);
  line(xc-round(i*mx),yc-3,xc-round(i*mx),yc+3);
  line(xc-3,yc-round(i*my),xc+3,yc-round(i*my));
  line(xc-3,yc+round(i*my),xc+3,yc+round(i*my));
  str(i,s);
  textout(xc+round(i*mx),yc+10,s);
  textout(xc-round(i*mx),yc+10,'-'+s);
  textout(xc-15,yc-round(i*my),s);
  textout(xc-15,yc+round(i*my),s);
 end;
t:=0;
dt:=0.001;
while t<=2*pi do
 begin
  t:=t+dt;
  setpixel(xc+round(t*mx),yc-round(F(t)*my),clRed);
 end;
textout(100,10,'График функции y=te^(-2t)+tcos(2t)');
textout(150,30,'на интервале [0;2pi]');
end.