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

[Миша_misha]

Люди....помогите.....

как между двумя одинаковыми буквами в слове вставить "*"

[whatever]

var
  s:string;
  i:integer;
begin
  s:='vstavlyaem mmmezhdu oddinakovimi bbukvvami';
  writeln(S);
  for i:=length(S) downto 2 do
    if s[i]=s[i-1] then
      insert('*',s,i);
  writeln(s);
  readln;
end.

[Миша_misha]

да уж...просто