Пользователь вводит текст…

Var a: string; words, nums, chars, i, sen: integer; begin readln (a); words: =1; For i: =1 to Length (a) do begin If (a[i]=') then inc (words); if (a[i] in ['0'… '9']) then inc (nums); if (a[i]=#13) then inc (sen); if (a[i] in ['a'… 'z', 'A'… 'Z', 'а'… 'я', 'А'… 'Я']) then inc (chars); end; writeln (Words, ' words', #13, Chars, ' chars (', Nums, ' Numbers) ', #13, Sen, ' sentences'); end. Разве что на строки проверить не могу, т.к. у меня только PascalABC, но должно работать=)