Паскаль, преобразование строки

[saveliev87]

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

Как звёздочку удалить, это понятно, а как символы повторять(не через массив)?

[IT-man]

Insert в помощь.

[Alex_FF]

Используйте процедуру Insert.

var
   I: Integer;
   S: String;
begin
     ReadLn(S);
     I := 1;
     while I <= Length(S) do
     begin
          if S[I] = '*' then
               Delete(S, I, 1)
          else
          begin
               Insert(S[I], S, I + 1);
               I := I + 2;
          end;
     end;
     WriteLn(S);
     ReadLn;
end.

[saveliev87]

Блин, во я туплю... спасибо)

[Rusl92]

Можно еще проще))
считывать c:char и потом проверять - равен ли он *
если равен, то s:=s+c;

Удачи!)

[Базиля]

если равен

тогда уж наоборот, если не равен, то просто составлять новую строку, а потом ее вывести

[Alex_FF]

Сообщение от Базиля

тогда уж наоборот, если не равен, то просто составлять новую строку, а потом ее вывести

и, к тому же, если не равен, то s := s + c + c, а не s := s + c