К примеру
Спойлер
Код: Выделить всё
Move(p^[$1], P1^[$100], 1);
Move(p^[$2], P1^[$200], 1);Ха, не вопрос, ексель как всегда спасает
Спойлер
Код: Выделить всё
Move(p^[$0001], P1^[$0100],1);
Move(p^[$0002], P1^[$0200],1);
Move(p^[$0003], P1^[$0300],1);
Move(p^[$0004], P1^[$0800],1);
Move(p^[$0005], P1^[$0900],1);
Move(p^[$0006], P1^[$0A00],1);
Move(p^[$0007], P1^[$0B00],1);
Move(p^[$0008], P1^[$0020],1);
Move(p^[$0009], P1^[$0120],1);
Move(p^[$000A], P1^[$0220],1);
Move(p^[$000B], P1^[$0320],1);
Move(p^[$000C], P1^[$0820],1);
Move(p^[$000D], P1^[$0920],1);
Move(p^[$000E], P1^[$0A20],1);

