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

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.