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

var s:string;
     i:byte;
begin
writeln('Введите строку, содержащую символы *:');
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);
readln
end.