Var s,s1:string;
i:integer;
begin
write(Введите слово: );
readln(s);
s1:=;
for i:=1 to length(s) do s1:=s1+s[i]+s[i];
writeln(s1);
end.

Пример:
Введите слово: дождь
ддоожжддьь