Кто знает в чем может быть ошибка ?

помогите пожалуйста очень надо .program Microscop;
uses crt, GraphABC;

var img, x, y, w, h, d: integer; c: char;

begin

SetWindowSize(400,260);

img:=LoadPicture('volvox3.jpg');

x:=0; y:=0;

w:=400; h:=260;

repeat

ClearWindow(clSkyBlue);

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

d:=0; c:=ReadKey;

if c=#72 then d:=5;

if c=#80 then d:=-5;

w:=w+2*d; h:=h+2*d; x:=x-d; y:=y-d;

until c=#27;

end.( ошибка выскакивает в 10 строке, перед точкой с запятой )