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