[OSW]

Не могу разобратся в чем ошибка, код:

program MMaiv;
var Masiv:array [1..4, 1..4] of image;
A, B : image;
x, y, n, m : integer;

begin
x:=0; y:=0;

A:=loadimage('/land0.png');
B:=loadimage('/land1.png');

masiv[1,1] := A;
masiv[1,2] := B;
masiv[1,3] := B;
masiv[1,4] := A;

masiv[2,1] := B;
masiv[2,2] := A;
masiv[2,3] := A;
masiv[2,4] := B;

masiv[3,1] := B;
masiv[3,2] := A;
masiv[3,3] := A;
masiv[3,4] := B;

masiv[4,1] := A;
masiv[4,2] := B;
masiv[4,3] := B;
masiv[4,4] := A;

for n := 1 to 4 do begin

for m := 0 to 4 do begin
drawimage(masiv[n,m],x,y);
  repaint;
	delay(30);
x := x+30;
end;
x:=0;
y := y+30

end;

drawimage(masiv[1,1],0,0);
 
  repaint;
	delay(3000);

end.

Компилируется но при запуске программи белий екран.