Вкаких случаях может быть полезной процедура SetLength

[Ainur]

Вкаких случаях может быть полезной процедура SetLength для работы со строками? Написать программу, возвращающую строку введенную пользователем, с обратным порядком символом. Символы должны быть удвоенным (например "строка"=>"ааккооррттсс").

[Naive]

str1,str2:string;
i:integer;
begin
for i:=0 to length(str1) do 
str2:=str2+ str1[length(str1)-i] + str1[length(str1)-i];
end.

что-то в этом роде

[Ainur]

От души братец