[Artmadiar]

Я делаю перемешивание нескольких объектов, но на месте цикла программа зависает.
Вот код:

[i]For i:=1 to 21 do
If fileexists('pic\'+inttostr(i)+'.bmp') then
inc(fil);

For i:=1 to fil do begin

Repeat
p[i]:=random(fil)+1;
Until not(p[i] in M);
include(M,p);

[Artmadiar]

Я понял ошибку. происходит зацикливание,когда во множестве уже все цифры есть.