Написать программу, которая считает сумма всех букв, которые входят в фамилию введенную с клавиатуры латинскими буквами

PascalABC.NET 3.4.0, сборка 1675 от 12.06.2018
Внимание! Если программа не работает, обновите версию!

begin
  ReadlnString.Select(c->integer(Ord(c))).Sum.Println
end.