Напишите программу дублирующию все символы 'И' в строке

var s1,s2:string; i:integer; begin writeln('Введите строку:'); readln(s1); s2:=''; for i:=1 to length(s1) do  if s1[i]='И' then s2:=s2+'ИИ' else s2:=s2+s1[i]; writeln(s2); end. Пример: Введите строку: НАПИШИТЕ ПРОГРАММУ ДУБЛИРУЮЩУЮ СИМВОЛЫ НАПИИШИИТЕ ПРОГРАММУ ДУБЛИИРУЮЩУЮ СИИМВОЛЫ