Выделить русские слова скобками(паскаль)

[gred]

Трудность возникает например.
Вводишь
go to home домой go to home
у меня получается
go to home(домой)go to home
а надо
go to home (домой) go to home
Плиз помогите заранее спасибо

[Карась]

А можно ещё раз только с кодом и поподробней.....

[gred]

uses crt;
var
    str         : string;
    i           : integer;
   strlen      : integer;
   

function IsConsonant(c : char) : boolean;
begin

    result := c in ['Б','В','Г','Д','Ж','З','К',
                    'Л','М','Н','П','Р','С','Т',
                    'Ф','Х','Ц','Ч','Ш','Щ',
                    'б','в','г','д','ж','з','к',
                    'л','м','н','п','р','с','т',
                    'ф','х','ц','ч','ш','щ',
                    'у','е','ы','а','о','э','я',
                    'И','О','Е','А','ь','и'];
end;
begin
    write('Вв предложение: '); readln(str);

    strlen := length(str);

    for i:=1 to  strlen do begin
        if (IsConsonant(str[i])) and (not(IsConsonant(str[i-1]))) then 
        str[i-1]:='(';
        end;
    for i:=1 to  strlen do begin
        if (IsConsonant(str[i-1])) and (not(IsConsonant(str[i]))) then
        str[i]:=')';
        end;
     writeln(str) ;
    readln;
end.

ну вот вводишь например gяz (английскую русскую английскую букву)
должно получится g(я)z а получается (я)

[Карась]

А если ввести ещё одну(промежуточную) переменую типа стринг чтоб туда сбрасывать символы?

[gred]

чтот начал делать муть какая то мож дописать
и возникла ешё одна проблема когда вводишь только русское слово выводится какието квадратики

[maLoy*508]

а ты попробуй не заменять этот str[i-1] символ, а вставлять скобку командой insert. Ее синтаксис insert(что_вставлять, строка_куда_вставлять, позиция_с_какой_вставлять)
у меня работало... если не получиться отпиши сюда...

[gred]

for i:=1 to  strlen do begin
        if (IsConsonant(str[i])) and (not(IsConsonant(str[i-1]))) then
        iinsert('(',str,i);
        end;
    for i:=1 to  strlen do begin
        if (IsConsonant(str[i-1])) and (not(IsConsonant(str[i]))) then
       insert(')',str,i);
        end;

сделал так неработает вывожу gпg ((gпg

[Alter]

Вот вам моё решение, работает 100%(+me):

[gred]

Спасиб как всегда всё элементарно