var
Masiv:array [1..4, 1..4] of integer;
img:array [1..2] of image;
........................................
img[1]:=loadimage('/land0.png');
img[2]:=loadimage('/land1.png');
masiv[1,1] := 1;
masiv[1,2] := 2;
masiv[1,3] := 2;
masiv[1,4] := 1;
for n := 1 to 4 do begin
for m := 1 to 4 do begin
drawimage (img[masiv[n,m]],x,y);
repaint;
delay(30);