Получить из данной строки новую строку, в которой каждый символ продублировать

[grev_4]

Окажите, пожалуйста, помощь в решении задачи:

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

[Пепел Феникса]

ну и где наработки?
задача банальная.

[grev_4]

Верно?

program dublirovat;
uses crt;
var 
  s1, s2: string; 
  i: byte;
begin
  clrscr;
  writeln('Введите строку: ');
  readln(s1); 
  writeln;
  for i:=1 to length(s1) do
  s2:=s2 + s1[i] + s1[i];
  writeln('Результат преобразования: ');
  writeln(s2);
end.

[andrewpalkin]

Сообщение от grev_4

Верно?

А ты ее запускал ??? Она тебе выдала желаемый результат ???

Если ответ ДА , то программа верная