Дана непустая последовательность знаков. Нужно выстроить и напечатать множество,

// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
  var s:='My chars: 3.5lt;7, 2gt;4, 2*48';
  Print('Начальная последовательность:'); s.Println(',');
  Write('Найдены операции отношения: ');
  var hs:=s.Where(c-gt;Pos(c,'lt;gt;=')gt;0).ToHashSet;
  hs.Println(',');
  Writeln('Мощность огромного количества равна ',hs.Count)
end.

Тестовое решение:
Начальная последовательность: M,y, ,c,h,a,r,s,:, ,3,.,5,lt;,7,,, ,2,gt;,4,,, ,2,*,4,8
Найдены операции дела: lt;,gt;
Мощность огромного количества одинакова 2