Обработка символьных данных

[Normand]

Задачка:
В символьной строке все знаки препинания перенести в конец предложения.

После полуторачасового копания в интернете, так и не понял как это можно осуществить... Надеюсь на вашу помощь.

[Normand]

Неужели никому не под силу? =)

[Sazary]

Неужели никому не под силу? =)

А почему за вас кто-то должен что-то решать?

В решении задачи вам помогут delete и insert.

[Normand]

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

А почему за вас кто-то должен что-то решать?

В решении задачи вам помогут delete и insert.

Я и не говорю, что кто-то должен решить) я прошу помочь..
Я не понимаю сам ход решения. А с текстом программы думаю сам разберусь. За ценные идеи, буду благодарен)

[OCTAGRAM]

Задом наперёд сканировать строку. Если символ пунктуации, то его надо присоединить слева к временной строке и удалить из исходной строки. После окончания цикла к исходной строке присоединяем справа временную строку, вот и всё.

Задом наперёд — это потому что после Delete сбиваются индексы, и надо следить, чтобы после Delete не происходил инкремент индекса, да и длина меняется. Перебирать символы задом наперёд — дешёвое и элегантное решение этой проблемы.

[SERG1980]

или

uses crt;
var s,s1,s2:string;
    i:integer;
BEGIN
clrscr;
s1:='';
s2:='';
writeln('Vvedite stroky');
readln(s);
for i:=1 to length(s) do
if s[i] in ['.',',','!','?'] then s1:=s1+s[i] else s2:=s2+s[i];
writeln(s2,s1);
readln;
END.

[Normand]

OCTAGRAM, спасибо громаднешее
SERG1980, спасибо, хоть я и не совсем так себе это представлял... весьма красиво, если не получится воспользуюсь Вашим кодом =)