[FireOwl]

А все таки заполнение массива красивее сделать так:

for i:=1 to 4 do
    for j:=1 to 4 do
        masiv[i,j]:=j;