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

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