Подсчитайте количество запятых в заданном тексте — Pascal(Паскаль)

uses crt;
var
   s:string;
   i,sum:integer;
   
BEGIN
   write('Введите строку :');
   readln(s);
   
   sum:= 0;
   for i:= 1 to length(s)do
       if s[i] = ',' then inc(sum);
       
   writeln;
   
   write('количество запятых = ',sum);
END.

function CountSym(ch: char; s: string): byte;
begin
  if Pos(ch, s) <> 0 then
    CountSym := 1 + CountSym(ch, Copy(s, Pos(ch,s)+1, Length(s)))
end;