Исключить из предложения "в печке выпечен батон, а в петлицу вдет бутон" все буквы " е ". паскаль

Program z;
var str:string;
begin
str:='В печке выпечен батон, а в петлицу вдет бутон';
while pos('е',str)>0 do
delete(str,pos('е',str),1);
writeln(str);
end.