Множества.Дан текст из строчных латинских букв и цифр. Определить чего – букв или цифр – больше в этом тексте

PROGRAM pr1;
VAR S:STRING;
I,K,L:INTEGER;
BEGIN
READLN(S);
for i:=1 to length(s) do
begin
if ('a'<=s[i]) and (s[i]<='z') then
k:=k+1;
if('A'<=s[i]) and (s[i]<='Z') then
k:= k+1;
if ('0'<=s[i]) and (s[i]<='9') then
l:=l+1;end;
if(k>l) then 
write('в тексте больше букв')
else write('в тексте больше чисел');
end.

program pr;
const
  z: set of char = ['1', '2', '3', '4', '5', '6', '7', '8', '9', '0'];
  bt: set of char = ['a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'w', 'x', 'y', 'z','l'];
  var
  s: string;
  i, coutz, coutb: integer;
begin
  coutz := 0;
  coutb := 0;
  writeln('Введите текст');
  readln(s);
  for i := 1 to length(s) do
    if s[i] in z then
    begin
      coutz := coutz + 1;
    end
    else if s[i] in bt then
    begin
      coutb := coutb + 1;
    end;
    writeln;
  if coutz > coutb then writeln('Цифр в тексте больше') 
  else writeln('Букв в тексте больше');
end.

var
  s: string;
  i, coutz, coutb: integer;
begin
  coutz := 0;
  coutb := 0;
  writeln('Введите текст');
  readln(s);
  for i := 1 to length(s) do
    if s[i] in ['0'..'9'] then  coutz := coutz + 1
    else
      if s[i] in ['a'..'z'] then  coutb := coutb + 1;
 
  if coutz > coutb then writeln('Цифр в тексте больше') 
  else if coutb > coutz then writeln('Букв в тексте больше')
  else writeln('Букв и цифр  в тексте поровну');
  Readln
end.

  for i := 1 to length(s) do begin
    Inc(coutz,Ord(s[i] in ['0'..'9']));
    Inc(coutb,Ord(s[i] in ['a'..'z']));
  end;