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

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.

не понимаю для чего тут массив, но сделал как в задании