Решить в паскале.дана строка символов р1, р2, рn. определить число вхождений в последовательность группы букв "xyz". вырезать фрагмент из текста между первым и вторым вхождением группы символов "xyz".

var
  str: string;
  sep: array of string := new string[1]('xyz');

begin
  readln(str); //str := 'xzyfffxyzxyz xyzvv';
  writeln(str.Split(sep, System.StringSplitOptions.None).Length - 1, ' вхождений');
  writeln(str.Remove(str.IndexOf(sep[0]) + 3, str.LastIndexOf(sep[0]) - str.IndexOf(sep[0]) - 3));
end.