Подсчитать, сколько учеников получили оценку хорошо, очень хорошо и удовлетворительно

program Project1;
 
const
  maxsize = 100;
type
  Tgrade = 3..5;
  TArr = array [1..maxsize] of Tgrade;
var
  a: Tarr;  {Переменная для хранения массива с оценками}
  i: byte;  {Вспомогательная переменная для организации цикла}
  n: byte;  {Переменная для хранения значения количества учащихся}
  st: string;  {Промежуточная переменная для организации вывода данных в консоль}
  c1,c2,c3: byte; {Переменные для хранения значений количества учащихся}
begin
  Randomize;
  write('Введите количество учащихся: ');
  readln(n);  {Ввод значения общего количества учащихся}
  c1:= 0;   {Начальная установка счетных переменных}
  c2:= 0;
  c3:= 0;
  writeln('Исходный список:');
  for i:= 1 to n do
    begin
      a[i]:= 3 + random(3);   { Назначается случайное значение оценки успеваемости}
      { В зависимости от оценки выдается строка пояснения и подсчитывается
        количество учащихся с одинаковым уровнем успеваемости}
      case a[i] of
       3: begin
            st:= 'S (удовлетворительно)';
            inc(c1);    {Подсчет совпадений по уровню успеваемости "S"}
          end;
       4: begin
            st:= 'B (хорошо)';
            inc(c2);    {Подсчет совпадений по уровню успеваемости "B"}
          end;
       5: begin
            st:= 'FB (очень хорошо)';
            inc(c3);    {Подсчет совпадений по уровню успеваемости "FB"}
          end;
      end;
    writeln(i:2,';   ',st);     {Вывод учащихся с оценками в консоль}
  end;
  writeln('Количество учащихся успевающих на уровень "S" (удовлетворительно): ', c1);
  writeln('Количество учащихся успевающих на уровень "B" (хорошо): ', c2);
  writeln('Количество учащихся успевающих на уровень "FB" (очень хорошо): ', c3);
  readln;
end.