Проблема в операторе подсчитывающем значение столбца в матрице Опции

[inviceble]

Здраствуйте ребят, очень надеюсь на вашу помощь.
Создайте массив, содержаший оценки десяти учеников за выполнение трёх контрольных работ (по 3 оценки для каждого). Выведите на экран средний балл ученика. Подсчитайте число учеников: б) выполнившых хотя бы одну работу на 5.
Проблема в создании счетчика на внешний оператор for , который подсчитывает кол-во учеников.
То есть если бы мне надо было подсчитать колво пятерок то я бы сделал так:

for i := 1 to 10 do 
for j := 1 to 3 do
if a[i,j]=5 then k := k+1

Но как сделать чтобы подсчитывало колво строк содержащих хотя бы одну 5?
Заранее спасибо

[Renbo]

Выведите на экран средний балл ученика. Подсчитайте число учеников: б) выполнившых хотя бы одну работу на 5.

SR- это сумма баллов каждого ученика, а если заглянешь сюда:

.....
writeln('sr = ', (sr / 3):5:2, '  5? ', flag);
end;

и увидишь вот это (sr / 3), то поймёшь, что первый ответ получен...

а посмотрев дальше: ' 5? ', flag увидишь, что выводит значение флажка, тоесть буквами непишет TRUE или FALSE в соотвтетствии с тем, получил ли ученик хотя бы одну петёрнку за 3 своих работы