Строки в Паскале

[COLD]

Преобразовать последовательность s1,...,sn, удалив каждый символ * и повторив каждый символ, отличный от *.
Знаю, что задача элементарная, но я недавно работаю в Паскале. Заранее спасибо.

[__STDC__]

var
	s:string;
	i:byte;
begin
	s := 'Hello * Worl*d';
	i := 1;
	while (i <= length(s)) do 
		if (s[i] = '*') then  
			delete(s,i,1)
		else begin
			insert(s[i],s,i);
			inc(i,2);
		end;
	writeln(s);
	readln;
end.

[COLD]

Спасибо большое!