[Kadawrik]

Цитата:

Сообщение от Fierce

Расскажите тогда как это возможно реализовать без массива, буду очень благодарен

FOR i := STRLEN(Вашастрока) DOWNTO 1 DO
   очереднойсимвол := COPYSTR(вашастрока, i, 1);

или (если через массив):

FOR i := STRLEN(Вашастрока) DOWNTO 1 DO
   очереднойсимвол := вашастрока[i];