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

uses
  crt;
var
  i,j,k: integer;
  st: string;
begin
  clrscr;
  write('wwedite stroku: ');
  readln(st);
  k:=length(st);
  i:=1;
  while i<=k do
  begin
    if st[i]='*' then
    begin
      delete(st,i,1);
      dec(k);
      continue;
    end
    else
    begin
      insert(st[i],st,i);
      inc(i);
      inc(k);
    end;
    inc(i);
  end;
  write(st);
  readkey;
end.

var
s:string;
i:integer;
begin
readln(s);
for i:=length(s) downto 1 do
if s[i]='*'then
delete(s,i,1)else
insert(s[i],s,i);
writeln(s);
end.