Подсчитать, сколько в трех различных строках буквенных символов,а сколько цифровых. Выдать построчные данные и итоговую сумму. (В программе должна быть функция подсчета цифровых символов а некоторой строке и функция подсчета нецифровых символов) — Pascal(Паскаль)

uses
  crt;
var
  i,sl,sd: integer;
  st: string;
 
function digit(s: string): integer;
const
  dg: set of Char = ['0'..'9'];
var
  i,col: integer;
begin
  col:=0;
  for i:= 1 to length(s) do
    if s[i] in dg then
      inc(col);
  digit:=col;
  sd:=sd+col;
end;
 
function letters(s: string): integer;
const
  lt: set of Char = ['A'..'Z','a'..'z'];
var
  i,col: integer;
begin
  col:=0;
  for i:= 1 to length(s) do
    if s[i] in lt then
      inc(col);
  letters:=col;
  sl:=sl+col;
end;
 
begin
  clrscr;
  for i:= 1 to 3 do
  begin
    write('wwedite ',i,'-uyu stroku: ');
    readln(st);
    writeln('kol-wo cifr w ',i,'-oy stroke = ',digit(st));
    writeln('kol-wo bukw w ',i,'-oy stroke = ',letters(st));
  end;
  writeln('Kol-wo wseh cifr = ',sd);
  writeln('Kol-wo wseh bukw = ',sl);
  readkey;
end.