Работа со строками

[eR-]

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

[начинающий кодер]

Поиск по форуму рулит была уже такая задача.В ветке паскаль.Преобразование символов в строке называется.

[Serge_Bliznykov]

детский сад "Ромашка"... ;-(

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

var s : string;
  i : integer;
begin
  s := 'hotel ***** is best!';
  i := length(s);
  while i>0 do begin
    if s[i]='*' then Delete(s,i,1)
    else Insert(s[i],s,i);
    i := i - 1;
  end;
  WriteLn(s)
end.