помогите пожалуйста тут у меня выводит на 6 строке сверху ( неверное количество фактических параметров )

program Teleskop;

uses crt, GraphABC;

var nebo, luna, x, y, w, h: integer; k:real;

begin

SetWindowSize(500,500);

nebo:=LoadPicture('sky.gif'); DrawPicture(nebo,0,20,500,500);

luna:=LoadPicture('luna2.gif');

SetPictureTransparent(luna,true);

x:=200; y:=200;

w:=100; h:=100;

DrawPicture(luna,x,y,w,h);

write('Ââåäèòå óâåëè÷åíèå (<=5). k= ');

read(k);

while w
begin

w:=w+10; h:=h+10; x:=x-5; y:=y-5;

DrawPicture(luna,x,y,w,h);

sleep(20);

Redraw;

end;

end.