[PassCall]

Внимательно посмотри на это:

var Masiv:array [1..4, [1..4] of image;
.................
for m := 0 to 4 do begin

и подумай, в чём ошибка :В