Продублировать каждый символ в тексте (Turbo Pascal)

[Marisha89]

Добрый день!
Помогите решить задачу:
Нужно самостоятельно ввести текст, програма должна продублировать каждый символ, вывести на экран.
Заранее спасибо!

[Vanta11a]

Что самостоятельно сделано?
Как вариант:

for i :=  1 to length(str) do
write(str[i],str[i]);
writeln();

[Stilet]

Наработки есть?
показать ввод текста сможешь?

[Marisha89]

Да, уже получилось)

program text;
var
    s: string;
    i:integer;
begin
    write('Input string: ',s);
    readln(s);
    for i:=length(s) downto 1 do
    insert(s[i],s,i+1);
    writeln('Your copy: ',s);
readln
end.

Спасибо)

[Serge_Bliznykov]

Молодец. Красиво!

Тему закрываем?