Дана строка. удвоить в ней все буквы "е". (решить с составления новой строки)

Var
  s1,s2:string;
  i:integer;
begin
  Write('Введите строку: '); Readln(s1);
  s2:='';
  for i:=Length(s1) downto 1 do
    if s1[i]='Е' then s2:='ЕЕ'+s2
    else s2:=s1[i]+s2;
  Writeln('Результат: ',s2)
end.

Пример
Введите строку: ЧТО ЭТО ТАКОЕ ДЛИННОШЕЕЕ?
Результат: ЧТО ЭТО ТАКОЕЕ ДЛИННОШ?