Дана строка символов сколько раз среди данных символов встречаться цифра? паскаль. подскажите

Var
  s:string;
  i,k:integer;
begin
  s:='5*sin(x-pi/4)+(x-2.6)/(sqr(x)+4*x-3)'; {чтобы не вводить}
  k:=0;
  for i:=1 to length(s) do
    if (s[i] in ['0'..'9']) then k:=k+1;
  writeln('Количество цифр равно ',k)
end.

Количество цифр равно 6