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

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