В классе 20 учеников писали диктант по русскому языку. Напишите программу подсчитывающую кол-во оценок (двоек, троек…). Паскаль

program N_8;
var a: array[1..20] of integer;
var i, ot2, ot3, ot4, ot5: integer;
begin

  Randomize; {иницилизируем генератор псевдослучайных чисел}
  
  for i := 1 to 20 do begin
    a[ i] := random(4) + 2;
    write('a[ i]=', a[ i],' ');
  end;
  WriteLn;
  
  {сначала обнулим счётчики оценок}
  ot2 := 0;
  ot3 := 0;
  ot4 := 0;
  ot5 := 0;
  
  {теперь подсчитаем количество отметок}
  for i := 1 to 20 do begin
    if a[ i]=2 then ot2 := ot2 +1;
    if a[ i]=3 then ot3 := ot3 +1;
    if a[ i]=4 then ot4 := ot4 +1;
    if a[ i]=5 then ot5 := ot5 +1;
  end;
  
  {вывод результатов}
  writeln('Dvoek =', ot2, ' Troek =', ot3, ' Chetverok =', ot4, ' Paterok =', ot5)
end.

program N_8;
var a: array[1..20] of integer;
var i, k : integer;
  otmetki : array[2..5] of integer;
begin

  Randomize; {иницилизируем генератор псевдослучайных чисел}

  for i := 1 to 20 do begin
    a := random(4) + 2;
    write('a=', a[ i],' ');
  end;
  WriteLn;

  {сначала обнулим счётчики оценок}
  for k:=2 to 5 do otmetki[k] := 0;

  {теперь подсчитаем количество отметок}
  for i := 1 to 20 do
    if (a[ i]>=2) and (a[ i]<=5) then Inc( otmetki[ a[ i] ]);

  {вывод результатов}
  for k:=2 to 5 do
    WriteLn('otmetka ',k,' kolichestvo ocenok = ',otmetki[k]);

end.