Задача на паскале. Составить программу…

Program picaso; uses crt; var s: string; i,k: integer; begin clrscr; k: =0; writeln ('Даите текст'); read (s); for i: =1 to length (s) do if (s[i]='0') or (s[i]='1') or (s[i]='2') or (s[i]='3') or (s[i]='4') or (s[i]='5') or (s[i]='6') or (s[i]='7') or (s[i]='8') or (s[i]='9') then inc (k); writeln ('сколько раз встретились цифры в тексте: ',k); readkey; end.