Косте

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
var
s: string; c: char;
i: byte;
BEGIN
write('Строка: '); readln(s);
write('Символ: '); readln(c);
i:=1;
while (i<length(s)+1) do
begin
if (s[i]=c) then
begin
insert(c, s, i); i:=i+1;
end; i:=i+1;
end; writeln(s);
END.