Дана строка символов состоящая только из цифр.определить сколько из них превышает 5

//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)

begin
  ReadString.JoinIntoString(' ').Where(t->t>'5').Count.Println
end.