Всем привет с информатикой

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

begin
  var s:=ReadlnString('Введите строку:');
  var n:=s.Matches('[A-Za-zА-Яа-яёЁ]').Count;
  var m:=s.Length-n;
  if m>n then Writeln('В строке букв меньше иных символов')
  else
    if m<n then Writeln('В строке букв больше иных символов')
    else Writeln('В строке поровну букв и иных символов')
end.

Примеры
Введите строку: Это 12+32/16t/7+3.1415 тест
В строке букв меньше иных символов

Введите строку: И это 14+7 равно 21 тоже тест
В строке букв больше иных символов