в символьном массиве из 6 элементов введённых с клавиатуры найти количество запятых

сейчас сделаю

так же массив 6 элементов?

да

var a: array [1..6] of char; i: integer; begin for i:= 1 to 6 do begin read(a[i] ); if a[i] in ['а'..'я'] then a[i]:=chr(ord(a[i]) - 32) end; for i:=1 to 6 dowrite(a[i])end.

Спасибо огромное ,очень помогли

var  a: array [1..6] of char;  i,n: integer;  begin  n:=0;for i:= 1 to 6 do  begin    read(a[i] );    if a[i] = ',' then n:= n +1;  end;  writeln(n);end.не понимаю для чего тут массив, но сделал как в задании