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

var s,s1:string;k:char;i:integer;beginreadln(s);readln(k);s1:='';for i:=1 to length(s) doif s[i]<>k then s1:=s1+s[i]+s[i];writeln(s);writeln(s1);readln;end.