В массив из 10 элементов записаны оценки группы учащихся. Составить программу, выводящую на экран количество оценок 2,3,4 и 5.(Паскаль абс) Информатика 10 класс

Var q2,q3,q4,q5,i:integer;
x:array[1..10]of integer;
begin
for i:=1 to 10 do
begin
read(x[i]);
case x[i] of
2:int(q2);
3:int(q3);
4:int(q4);
5:int(q5);
end;
end;
writeln(2: ,q2);
writeln(3: ,q3);
writeln(4: ,q4);
writeln(5: ,q5);
end.