Введённом тексте с клавиатуры подсчитать количество букв, цифр и пробелов

uses
  crt;
 
var
  s: string;
  i, n, l, sp: word;
 
begin
  writeln('Введите строку:');
  readln(s);
  for i := 1 to length(s) do
  begin
    if (s[i] in ['A' .. 'Z']) or (s[i] in ['a' .. 'z']) or (s[i] in ['а' .. 'я']) or (s[i] in ['А' .. 'Я']) then
      inc(l);
    if s[i] in ['0' .. '9'] then
      inc(n);
    if s[i] = ' ' then
      inc(sp);
  end;
  writeln('В строке ', l, ' букв(ы)(a), ', n, ' цифр(ы)(a) и ', sp, ' пробел(а)(ов)');
  readln;
 
end.

var
   S: string;
   i,a,b,c: integer;
begin
     a:=0; b:=0; c:=0;
     Writeln('Vvedite stroku:'); Readln(S);
     For i:=1 to Length(S) do begin
     case Ord(S[i]) of
     65..90:   a:=a+1;
     97..122:  a:=a+1;
     128..159: a:=a+1;
     192..207: a:=a+1;
     224..241: a:=a+1;
     48..57:   b:=b+1;
     32:       c:=c+1;
     end;
     end;
     Writeln(a,' ','bukv',' ',b,' ','cyfr',' ',c,' ','probelov');
     Readln;
end.

case Ord(S[i]) of
     65..90,97..122,128..159,192..207,224..241: a:=a+1;
     48..57:   b:=b+1;
     32:       c:=c+1;
     end;