Что будет напечатано после того, как выполнится следующий фрагмент кода?

s := 'helicopter';

while pos('e', s) > 0 do

begin

x := pos('e', s);

delete(s, x, 2);

end;

writeln(length(s));