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

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.