Составьте программу позволяющую удвоить каждый символ заданной строки и вывести полученную строку на экран

Var a,b:string;
i: integer;
begin
write('Введите строку: '); readln(a);
b:='';
for i:= 1 to length(a) do b:=b+a[i]+a[i];
write('Новая строка: ',b);
end.