Подсчитать, в котором из двух данных текстов длины не более 255 символов больше цифр. подсчет числа цифр оформить в виде функции — Pascal(Паскаль)

program zad;
uses crt;
const
  ts=['1','2','3','4','5','6','7','8','9','0'];
var
  kol,m,k: byte;
  s,s1: string;
Function Poisk(st:string):byte;
var
  i: byte;
begin
   for i:=1 to length(st) do
    begin
     if st[i] in ts  then
      inc(kol);
    end;
   writeln('количество цифр=',kol)
end;
 
begin
  Clrscr;
 
 writeln('введите первую строку:');
  readln(s);
  Poisk(s);{‘считаем количество цифр первой строки}
 writeln('‚введите вторую строку:');
  readln(s1);
  Poisk(s1);{количество цифр второй}
 readln;
end.