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

[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?
Заранее спасибо

[inviceble]

Извиняюсь за свою не понятливость.
но

sr := sr + a[i,j];
if x[i,j] = 5 then flag := true;

первая строка дает значение переменной sr складывая значение sr со значением числа в матрице.
вторая строка оператор - если a[i,j] равен 5 то переменная flag - верна.
Это либо я чтото не допонимаю и не так делаю либо ты меня не допонял
Насколько я понимаю эти операторы только проверяют значение flag, и выводят результат складывания 0 с числом из матрицы.
Подскажите пожалуйста как мне сделать счетчик, который будет считать кол-во строк в котором есть хотя бы одна 5.
В чем моя проблема я не могу составить алгоритм, для дальнейшего написания, математически не понимаю, хотя одна мысль уже давно крутиться, но осуществить ее не получается - если в строке есть 5, то к переменной добавляется единица, примерно так:

for i := 1 to 4 do begin
for j := 1 to 3 do begin
if a[i,1]=5 or a[i,2]=5 or a[i,3]=5 then k:= k+1;

но с другой стороны эти три условия можно заменить одним a[i,j]=5, но тогда при любой встрече числа 5 к переменной k будет добавляться единица. Если же использовать исключающее или то тогда при встрече двух 5 в одной строке будет неправильный подсчет