Проблемы с графикой

Есть код:
program grp;
uses crt, graph;
var
gd, gm:integer;
x,y,x1,y1:integer;
p:pointer;
Size:word;
i:integer;
begin
gd:=detect;
initgraph(gd, gm, 'c:\bp\bgi');
x1:=10;

{setViewPort(10, 10, 100, 100, false);}
Size:=ImageSize(10, 10, 100, 100);
rectangle(10, 10, 100, 100);
GetMem(p, Size);
readkey;
y1:=10;
GetImage(10, 10, 100, 100, p^);
PutImage(10, 10, p^, XORPUT);
for x1:=10 to 300 do
begin
x:=x1-1;
y:=y1-1;
PutImage(x, y, p^, XORPUT);
PutImage(x1, y1, p^, XORPUT);
{ClearViewPort;
SetViewPort(x1, y1, x1+90, y1+90, false);
rectangle(x1, y1, x1+90, y1+90);}
inc(y1);
end;
end.
Тут происходит перемещение квадрата по экрану, но вов время перемещения на экране глюки!!! Что делать?