Вмассиве записаны оценки ученика по 10 предметам. определить общее количество четверок и пятерок ,,паскаль-одномерный массив

Const
   N = 10;
Var
   A:array[1..N] of byte;
   i,k:integer;
Begin
k:=0;
Write('Текущие оценки по предметам:');
For i:= 1 to N do
    Begin
    A[i]:=random(5)+1;
    Write(' ',A[i]);
    if (A[i] = 4)or(A[i] = 5) then k:=k+1
    End;
WriteLn;
WriteLn('Общее количество четвёрок и пятёрок: ',k);
End.