Оси координат в графике в паскале

program gr;
    uses crt, Graphabc;
    var
    x,y,x2,t:real;
n:integer;
f:text;
begin
assign (f, 'Rezyltat.txt');
rewrite (f);
writeln('              АТФ, 101411, Коновалов А.О., 05.05.2013');
writeln('    Характеристики твёрдого основания снежного покрова');
writeln ('Введите группу дорожного пути ');
writeln('1 - Ровные луга');
writeln('2 - Малопересечённые луга');
writeln('3 - Среднепересечённые луга');
writeln('4 - Сильнопересечёные луга');
writeln('5 - Валы');
writeln('6 - Кочки');
writeln('7 - Дороги ровные (асфальтированные)');
writeln('8 - Дороги разбитые (асфальтированные)');
readln(n);
writeln('   ');
Write('Введите l1 = ');
read(x);
write(x);
writeln('   ');
Write('Введите l2 = ');
read(x2);
write(x2);
writeln('   ');
writeln('Вы ввели диапазон функции от ',x,' до ', x2,'.');
writeln(f,'              АТФ, 101411, Коновалов А.О., 05.05.2013');
writeln(f,'Характеристики твёрдого основания снежного покрова');
writeln (f,'Введите группу дорожного пути ');
writeln(f,'Группы дорожного пути: ');
writeln(f,'1 - Ровные луга');
writeln(f,'2 - Малопересечённые луга');
writeln(f,'3 - Среднепересечённые луга');
writeln(f,'4 - Сильнопересечёные луга');
writeln(f,'5 - Валы');
writeln(f,'6 - Кочки');
writeln(f,'7 - Дороги ровные (асфальтированные)');
writeln(f,'8 - Дороги разбитые (асфальтированные)');
writeln(f, 'Вы ввели группу дорожного пути №',n);
writeln(f,'Вы ввели диапазон функции от ',x,' до ' ,x2,' .');
while x<=x2 do
begin
setwindowsize(1200,600);
line(499,0,499,400);
line(500,0,500,400);
line(501,0,501,400);
line(400,0,400,600);
line (400,199,1200,199) ;
line (400,200,1200,200) ;
line (400,201,1200,201) ;
if n=1 then
if x<=35 then
if x>20 then
y:=-12*exp(-0.09*x)*cos(0.24*x);
if x<=20 then
if x>13 then
y:=-5.76*exp(-0.12*x)*cos(0.4*x);
if x<=13 then
if x>9 then
y:=-5.2*exp(-0.2*x)*cos(0.6*x);
if x<=9 then
if x>6 then
y:=4.3*exp(-0.3*x)*cos(0.8*x);
if x<=6 then
if x>4 then
y:=-4*exp(-0.2*x)*cos(1*x);
if x<=4 then
if x>2.5 then
y:=-1.69*exp(-0.85*x)*cos(2*x);
if x<=2.5 then
if x>=1 then
y:=-2.54*exp(-1.15*x)*cos(3*x);
if n=2 then
if x<=35 then
if x>20 then
y:=-42*exp(-0.09*x)*cos(0.24*x);
if x<=20 then
if x>13 then
y:=-67*exp(-0.12*x)*cos(0.4*x);
if x<=13 then
if x>9 then
y:=-25*exp(-0.4*x)*cos(0.6*x);
if x<=9 then
if x>6 then
y:=-25*exp(-0.3*x)*cos(0.8*x);
if x<=6 then
if x>4 then
y:=-16*exp(-0.4*x)*cos(1*x);
if x<=4 then
if x>2.5 then
y:=-16*exp(-0.85*x)*cos(2*x);
if x<=2.5 then
if x>=1 then
y:=-11*exp(-1.15*x)*cos(3*x);
if n=3 then
if x<=35 then
if x>20 then
y:=-184*exp(-0.09*x)*cos(0.26*x);
if x<=20 then
if x>13 then
y:=-80*exp(-0.12*x)*cos(0.41*x);
if x<=13 then
if x>=4 then
y:=-54*exp(-0.25*x)*cos(0.82*x);
if n=4 then
if x<=35 then
if x>20 then
y:=-245*exp(-0.12*x)*cos(0.26*x);
if x<=20 then
if x>=13 then
y:=-289*exp(-0.13*x)*cos(0.36*x);
if n=5 then
if x<=35 then
if x>20 then
y:=-760*exp(-0.13*x)*cos(0.18*x);
if x<=20 then
if x>=13 then
y:=-760*exp(-0.16*x)*cos(0.4*x);
if n=6 then
if x<=4 then
if x>=1 then
y:=-64*exp(-3.4*x)*cos(8*x);
if n=7 then
if x<=35 then
if x>20 then
y:=-12*exp(-0.09*x)*cos(0.24*x);
if x<=20 then
if x>=13 then
y:=-3*exp(-0.12*x)*cos(0.4*x);
if x<=4 then
if x>2.5 then
y:=-2.5*exp(-0.65*x)*cos(1.8*x);
if x<=2.5 then
if x>=1 then
y:=-1*exp(-1.6*x)*cos(3.2*x);
if n=8 then
if x<=35 then
if x>20 then
y:=-140*exp(-0.12*x)*cos(0.24*x);
if x<=20 then
if x>13 then
y:=-30*exp(-0.1*x)*cos(0.4*x);
if x<=13 then
if x>9 then
y:=-40*exp(-0.2*x)*cos(0.6*x);
if x<=9 then
if x>6 then
y:=-50*exp(-0.4*x)*cos(0.8*x);
if x<=6 then
if x>4 then
y:=-27*exp(-0.55*x)*cos(1*x);
if x<=4 then
if x>=1 then
y:=-(25*exp(-0.65*x)*cos(1.8*x));
x:=x+0.01;
circle(trunc(x*20+500),trunc(y*20+200),2);
writeln(f,'R(l)=',-y:4:2,'        l=',x:4:2);
if x>x2 then close(f);
end;
end.