Пусть дан русский текст, слова которого разбиты пробелами, запятой либо точкой.

онок или -енок меняем на онки либо -енки?

не знаю)))

Var
  t,m:string;
  i:integer;
begin
readln(t);
m:='нки';
for i:=1 to length(t) do
  begin
  if ((t[i]=' ') or (t[i]=',') or (t[i]='.'))
    and((copy(t,i-4,4)='онок') or (copy(t,i-4,4)='енок'))
       then
         begin
         delete(t,i-3,3);
         insert(m,t,i-3);
         end;
  end; 
writeln(t)
end.