изменение порядка следования символов в строке

[Arteom]

Доброго всем времени суток. Подскажите пожалуйста, как реальзовать вот такую задачу:
имеется строка примерно такого вида: STR = str1, str2, str3
необходимо представить ее в следующем виде: NewSTR = str3/str2/str1.
Заранее спасибо за помощь

[Showy]

var
  STR: String;
begin
  STR := 'str1, str2, str3';
  while Pos(',', STR) <> 0 do
     STR[Pos(',', STR)] := '\';

[Arteom]

так только запятые меняются на черту, а подстроки местами не меняются

[puporev]

Если писать в Паскале, то примерно так:

uses crt;
var STR,NewSTR:string;
    s:array[1..3]of string;
    i,k:integer;
begin
clrscr;
STR:='str1, str2, str3'; //вводим строку, можно и другой длины, но такой же структуры
k:=1;
while pos(',',STR)>0 do
    begin
      s[k]:=copy(STR,1,pos(',',STR)-1);//записываем в массив слова типа  str1
      delete(STR,1,pos(',',STR)+1);//удаляем по пробел
      k:=k+1;
    end;
s[k]:=STR;//последний элемент массива - остаток строки
NewSTR:='';
for i:=k downto 1 do  //с конца добавляем элементы массива в новую строку +'/'
NewSTR:=NewSTR+s[i]+'/';
NewSTR[length(NewSTR)]:='.';//в конец точку
write('NewSTR=',NewSTR);
readln
end.

В делфи все проще, там есть функция PosEx (последнее вхождение подстроки) и можно сразу начинать с конца.

[Arteom]

Спасибо, все получилось