Удвоить вхождение некоторой буквы в текст

[dark999]

Удвоить вхождение некоторой буквы в текст. Например при удваивании буквы а текст практика в мае должен превратится в текст праактикаа в маае

var s:string;
c:char;
i:byte;
begin
clrscr;
for i :=length(s) downto 1 do 
if s[i] = c then insert (c,s,i);

как то так)


___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

ну и в чём проблема?! всё правильно, всё работает:

var s : string;
    i : integer;
    c : char;
begin
  c := 'а';
  s := 'практика в мае';
  for i :=length(s) downto 1 do 
    if s[i] = c then insert (c,s,i);

  WriteLn(s);
  readln
end.

[dark999]

var s:string;
    c:char;
    i:byte;
begin
clrscr;
write('Vvedite stroku: ');
readln(s);
write('Vvedite bukvu: ');
readln(c);
write('Otvet: ');
for i:=length(s) downto 1 do
if s[i] = c then insert (c,s,i);
writeln(s);
readln;
end.

Вот так надо было) спасибо)