[OSW]

Ура все работает:

program Maiv;
var
Masiv: array[1..4, 1..4] of integer;
img: array[1..4] of image;
n, m, m1, m2, m3, m4, x, y, k, i, ii, nx: integer;

begin
x := 0;
y := 0;
nx := 1;

img[1] := loadimage('/land0.png');
img[2] := loadimage('/land1.png');
img[3] := loadimage('/land2.png');
img[4] := loadimage('/land3.png');


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

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

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

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


for ii := 1 to 4 do
begin
i := ii;
for n := 1 to 4 do
begin
drawimage(img[masiv[i, n]], x, y);
repaint;
delay(3000);

x := x + 30;
end;


x := 0;
y := y + 30;
end;

end.