Строки Опции

[Гость]

Дана строка. Преобразовать её, удалив каждый символ * и повторив каждый символ, отличный от *.

[Needhelp]

 Program Vseee;
var
a:string;
i : Integer;
begin
i:=1;
Write('vvedite stroky ->');
Read(a);
while i<=length(a) do
begin
if a[i]='*' then
begin
delete(a, i, 1);
end
else
begin
insert(a[i],a,i);
i:=i+2;
end;
end;
Writeln(a);
Readln;
end.

Книги читай Фаронов форева!