масштабирование графика

[densan]

Есть программа строящая график
uses crt,graph;
const
k=30;
step=5;
var
driver,mode: integer;
y,x:real;
i:longint;
st:string;
begin
driver:=detect;
initgraph (driver,mode,'c:\pascal\bgi\graph.t pu');
setcolor (9);
line (320,0,320,480);
line (0,240,640,240);
setcolor (11);
outtextxy (140,120,'y=(x*x*x)+(3*x)+5');
setcolor (13);
outtextxy (280,0,'G R A F I K');
setcolor(10);
outtextxy (310,15,'y');
outtextxy (620,230,'x');
for i:=0 to getmaxx div (k) do
begin
str (i,st);
outtextxy(getmaxx div 2+i*k,getmaxy div 2+step,st);
str (-i,st);
outtextxy (getmaxx div 2-i*k,getmaxy div 2+step,st);
end;
for i:=1 to getmaxy div (k) do
begin
str (-i,st);
outtextxy (getmaxx div 2+step,getmaxy div 2+i*k,st);
str (i,st);
outtextxy (getmaxx div 2+step,getmaxy div 2-i*k,st);
end;
x:=-2;
repeat
x:=x+0.00002;
y:=(x*x*x)+3*x+5;
putpixel (round(320+x*24),round(240+y*18),re d);
until x>2;
readkey;
end.
Нужно привязать график к лаве (к какой нибудь кнопке), что бы можно было масштабировать график, или перемещать стрелками по осям. Мож кто в привязке клавиш к рисунку чо и понимает, а я не могу разобраться.

[mutabor]

Перепиши алгоритм построения графика так, чтобы за масштаб отвечала одна переменная (коэффициент, умножай все на нее), за смещение координат две переменные (по осям x и y, прибавляй к ним). По нажатию каких либо двух клавиш (например плюс и минус) меняй первую переменную, очищай экран и строй заново график. По нажатию еще четырех клавиш (к примеру стрелки) меняй переменные смещения, очищай экран и заново строй график.

p.s. Если готов заплатить, сделаю, стучи в асю (ася в профиле)

[densan]

Всё не актуально. Экзамен сдан, требовалось нарисовать маятник с затухающими колебаниями. 5-СУПЕР.