Графика и движение. (Паскаль)

Question

Вывести на экран непрерывную синусоиду, амплитуда которой изменяется при помощи нажимания клавиш клавиатуры.

antonina_pereeva · Accepted Answer

Синусоиду умею только такую: 
Program graph1;
uses graph, crt;
var gd,gm,error,x,y: integer;
z:real;
begin
begin
gd:=detect;
initgraph(gd,gm,'');
error:=graphresult;
if error <> grOk then begin
write ('Ошибка графики: ',
grapherrormsg(error));
readln; halt;
end;
end;
line(1,200,500,200);
line(1,1,1,400);
for x:=1 to 651 do begin
z:=sin((pi*x)/180);
y:=trunc(z*10);
putpixel(x,10*y+200,2);
delay(5);
//putpixel(x,10*y+200,0);
end;
readln;
closegraph;
end.