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

PascalABC.net
в программе 'e' печатайте по-русски

var
  s:string;
  i:integer;
begin
writeln('Введите строку:');
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.