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

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