Мне нужно чтобы по значениям массива выводились на экран картинки.
есть такой код.
program Project1;
var
mas:array [1..8,1..8] of integer;
kart:array [1..8] of image;
begin
for i:=1 to 8 do kart[i]:=loadImage('/cut'+integertostring(i)+'.png');
randomize;
for i:=1 to 8 do
for j:=1 to 8 do
mas[i,j]:=random(8)+1;
for i:=1 to 8 do
for j:=1 to 8 do
DrawImage(kart[(mas[i,j])],i*16,j*16);
repaint;
delay(3000);
end.
Подскажите что я делаю не правильно?