[12121]

У тебя же карта 4х4=16 а картинок только 8. Как они могут не повторяться ?
После каждого случайного выбора надо проверять всю карту и сравнивать с выбором. Если совпало то снова выбираем.
И еще вместо всей конструкции if map[x,y]=1 then vivod(img[1],x,y);else . . . напиши vivod(img[map[x,y]],x,y);