Работа со строками в 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.

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

[Айра]

Я так по заданию поняла, что это надо делать только с теми, кто перед нечетными звездочками сейчас и такой вариант сделаю))


добавлено: тогда будет так:

 
  i:=1;
  while i<=Length(s) do
    begin
      if s[i]='*' then
        begin
          st:=copy(s,i-1,1);
          inc(k);
          insert(st,s,i);
          inc(i);
          if k mod 2<>0 then  delete(s,i,1);
        end;
      inc(i);
    end;

Сообщение отредактировано: Айра - 7.06.2007 22:46