Паскаль. Напишите программу,удваивающую каждый символ в заданном тексте

[Yola]

Товарищи программисты.Помогите плиз решить задачу,а то у меня никак не получаеться.
Напишите программу,удваивающую каждый символ в заданном тексте.
очень надеюсь на помощь ,хоть задача и элементарная,но никак не решается

[Aristarh Dark]

var
  intext,outtext:string;
  i:integer;
begin
  outtext:='';
  WriteLn('Введите текст:');
  ReadLn(intext);
  for i:=1 to Length(intext) do
    outtext:=outtext+intext[i]+intext[i];
  WriteLn(outtext);
  ReadLn;
end;

[Yola]

спасибо большое,выручил