Дана непустая последовательность символов. Требуется выстроить множество, элементами

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программка не работает, обновите версию!

begin
  var s:=ReadlnString('Введите элементы через пробел'+NewLine);
  var ss:=Seq(s.ToWords); // исзодная последовательность
  var h:=ss.Where(w-gt;w.All(c-gt;c in ['0'..'9'])).Select(w-gt;w.ToInteger)
      .Where(n-gt;n.InRange(0,10) and n.IsEven).ToHashSet;
  Writeln('Множество: ',h)
end.

Пример
Введите элементы через пробел
 ajd 5 r13 023 raA6 8 10 4t 12 8rd 4 14 ed 000 qq
Множество: 8,10,4

Var i: Integer;
begin
for i:=0 to 10 do
begin
if i mod 2=0 then
begin
writeln(i);
end;
end;
end.