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

Const   N = 10;Var   A:array[1..N] of byte;   i,k:integer;Begink:=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.