Работа со строками в Pascal Опции

[NEFFboy]

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

var
 s: string;
 k, i: integer;
 f, h: text;

begin
 assign(f,'input.txt');
 reset(f);
 readln(s);
 k:=0;
 i:=0;
 while i<>Length(s) do
 begin
  if s[i]='*' then
  begin
   inc(k);
   if k mod 2<>0 then
   begin
    delete(s,i,1);
    dec(i);
   end;
  end;
 inc(i);
 end;
 assign(h,'out.txt');
 rewrite(h);
 writeln(h,s);
 close(h);
end.

у меня только удаляет каждый нечетный символ *, киньте исодник, как повторить каждый символ, предшествующий *.
Заранее спасибо!

[hardcase]

Сложно, однако, и нечитабельно.
Алгоритм - типичный pipeline.
Так зачем его через махинации с текущим индексом делать?

Код

function TransformString(S: string): string;
var res: string; // результат
    i: integer;
    asterCount: integer; //счетчик '*'
    nextChar: Char; // текущий символ
    prevChar: Char; // предыдущий записанный символ
begin
  asterCount := 0;
  prevChar := #0;
  for i := 1 to Length(S) do begin
    // получаем следующий символ
    nextChar := S[i];
    if nextChar = '*' then begin
      inc(asterCount);
      // дублируем предыдущий симовол
      if prevChar <> #0 then
        res := res + prevChar;        
      // пропускаем запись нечетных '*' в результат  
      if (asterCount mod 2) <> 0 then
        Continue;      
    end;
    // записываем следующий символ в результат
    res := res + nextChar;
    prevChar := nextChar;
  end;
  TransformString := res;
end;