Подсчитать количество двоек, троек, четверок и пятерок, полученных за диктант - Free Pascal

Формулировка задачи:

Добрый день, сын запутался в задаче. Ученик 9 "а" класса. Возможно, вы бы могли ему помочь? Если можно с объяснениями , полный ступор... спасибо. "В школе 20 учеников писали диктант по русскому языку. Напишите программу на языке Паскаль, подсчитывающую количество двоек, троек, четверок и пятерок, полученных за диктант. ( используйте 6 переменных: a: array, k2, k3, k4, k5, i) Решите задачу, используя randomize и 1 массив!" Буду очень благодарен.

Решение задачи: «Подсчитать количество двоек, троек, четверок и пятерок, полученных за диктант»

Листинг программы

const n=20;
var a:array[1..n] of byte;
    i,k2,k3,k4,k5:byte;
begin
randomize;
writeln('ГЋГ¶ГҐГ*ГЄГЁ');
k2:=0; k3:=0; k4:=0; k5:=0;
for i:=1 to n do
 begin
  a[i]:=2+random(4);
  write(a[i]:2);
  if a[i]=2 then k2:=k2+1
  else if a[i]=3 then k3:=k3+1
  else if a[i]=4 then k4:=k4+1
  else k5:=k5+1;
 end;
writeln;
write('2=',k2,' 3=',k3,' 4=',k4,' 5=',k5);
end.

Объяснение кода листинга программы

Объявляются переменные: n, a, i, k2, k3, k4, k5 типа byte.
Установка начального значения для генератора случайных чисел.
Вывод на экран сообщения ГЋГ¶ГҐГ*ГЄГЁ.
Установка начального значения счетчиков k2, k3, k4, k5 равным нулю.
Цикл for перебирает элементы массива a от 1 до n.
Каждый элемент массива a заполняется случайным числом от 2 до 5.
Если значение элемента равно 2, то увеличивается значение счетчика k2 на 1.
Если значение элемента равно 3, то увеличивается значение счетчика k3 на 1.
Если значение элемента равно 4, то увеличивается значение счетчика k4 на 1.
Если значение элемента не равно 2, 3, 4 или 5, то увеличивается значение счетчика k5 на 1.
После цикла выводится на экран значение каждого счетчика.
Завершение программы.