// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString;
var ind:=s.ToCharArray.IndexesOf(c->c='h');
s:=s[:ind.First+1]+s[ind.Last+2:]; s.Println
end.
Пример
434 rfew45dh34r34r34r34r5 34 22342d3h234 23d2her tert
434 rfew45der tert