Задача Pascal

[YuZuK]

Задано строку, в которой слова друг от друга отделены одним пробелом. Перед каждым словом, которое начинается с буквы 'J' вставить точку!!!!

 

[nayke]

Задано строку, в которой слова друг от друга отделены одним пробелом. Перед каждым словом, которое начинается с буквы 'J' вставить точку!!!!

s:=s+' '

while pos(' ',s)<>0 do
begin
LWord:=Copy(s,1,pos(' ',s));
Delete(s,1,pos(' ',s));
if LWord[i]='J' then LWord:='.'+LWord;
REsult:=result+LWord;
end;

что-то в этом духе..

 

[YuZuK]

Спасибо большое!!!