Замена нескольких символов из ячейки СПРАВА и СЛЕВА

[Bkitzhan]

Доброе время суток! помогите разобраться второй день ломаю голову. У меня есть значения к примеру 96005682 , 870985411 , и нужно с лева где 960 заменить на ЕРП а где 870 на ПРН , и с право где 1 на Л а где 2 на Н.

[ZX Spectrum-128]

S:='96005682';
S[1]:='E';
S[2]:='П';
S[3]:='Р';

Заменил.