Всимвольном массиве из 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.

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