Обработка символьной информации:дано слово-предложение(заменить все буквы "е" на "и" через паскаль)

pascalABC.netв программе 'e' печатайте по-русскиvar  s:string;  i:integer;beginwriteln('Введите строку:');readln(s);repeat  i:=pos('е',s);  if i>0 then    begin    delete(s,i,1);    insert('и',s,i);    end;  until i=0;writeln(s);  end.