Процедуры и функции Опции

[Добрик]

Найти кол-во цифр в строке
С помощью процедуры и функции.


Есть решение с помощью процедуры (и то есть косяк , см. прог-у), а как с помощью функции?

Код

program test;

uses crt;


var
s:string; c:char;
procedure myproc (s:string);


begin

{Как записать?} if  c in '1'..'9' (char=(1 ..9))

var
s1:string;
i,n:integer;


begin
writeln ('Введи строку:');
readln (s);

for m:=1 to lengtstr (s) do

begin
c:=s[i];

if (c in cfr) then
i:=i+1
m:=m+1;
end;
writeln ('Количество цифр:',i);
end.

[volvo]

и то есть косяк

А косяк - потому, что код процедуры перемешан с кодом основной программы (да и внутри процедуры тоже непорядок...). Вот так никакого косяка не будет:

procedure myproc (s:string; var count: byte);
var
  i: integer;
begin
  count := 0;
  for i:=1 to length(s) do
    if s[i] in ['0' .. '9'] then inc(count)
end;

...
{ основная программа: }
...
{ читаешь строку в s }
myproc(s, _count);
writeln('число цифр в строке = ', _count);