[YVitaliy]

Ну, делал на коленке. Вместо

Код:

m1[c]:=inttostr(i);

нужно

Код:

m1[c]:=inttostr(i)[1];//хм 

В pos[m[i],p); вместо квадратной скобки нужна круглая pos(m[i],p);

Кажись, не туда вставил. Процедура для уже готовых p='123456', и m='261543'. Результат в p. (p=316542)