pascalabc. Масштабирование окна

[yzen]

Дана функция по ней построить график.
Как сделать чтобы график плавно шел.
И главное масштабирование.
Тыкал WindowHeight WindowWidth и не чего толкового..
Я так, грубо накидал, тут только график.↓


program dno;
uses crt,graphABC,Events;
var a,b,h:real;
n,i,j,mm:integer;
key:char;
x,y:array[1..100] of real;
procedure KeyDown(Key: integer);
begin
Redraw;
case Key of
VK_Up: mm:=WindowHeight+1;
VK_Down: mm:=WindowHeight-1;
end;
end;

begin
a:=-3;
b:=3;
n:=50;
for i:=1 to n do begin
h:=(b-a)/n;
x[i]:=a+i*h;
y[i]:=exp(ln(sqr(x[i]+2))/3)-exp(ln(sqr(x[i]-2))/3);
end;

line(185,10,185,360);
line(10,185,360,185);

for i:=n downto 2 do line(round(x[i])*150,round(y[i])*150,round(x[i-1])*150,round(y[i-1])*150);;

OnKeyDown:=KeyDown;

end.