помогите с решением задачи на языке делфи..задача ниже

program Uspevaemost;

const
studentov = 25;
predmetov = 10;

TablicaUspevaemosti: array [1..predmetov, 1..studentov] of integer =
((3, 4, 5, 3, 4, 5, 3, 2, 4, 3, 1, 2, 3, 4, 5, 3, 4, 5, 3, 4, 5, 3, 2, 4, 5),
(3, 4, 5, 3, 4, 5, 3, 2, 4, 2, 1, 2, 3, 4, 5, 3, 4, 5, 3, 4, 5, 3, 2, 4, 5),
(3, 4, 5, 3, 4, 5, 3, 2, 4, 4, 1, 2, 3, 4, 5, 3, 4, 5, 3, 4, 5, 3, 2, 4, 5),
(3, 4, 5, 3, 4, 5, 3, 2, 4, 5, 1, 2, 3, 4, 5, 3, 4, 5, 3, 4, 5, 3, 2, 4, 5),
(3, 4, 5, 3, 4, 5, 3, 2, 4, 5, 1, 2, 3, 4, 5, 3, 4, 5, 3, 4, 5, 3, 2, 4, 5),
(3, 4, 5, 3, 4, 5, 3, 2, 4, 3, 1, 2, 3, 4, 5, 3, 4, 5, 3, 4, 5, 3, 2, 4, 5),
(3, 4, 5, 3, 4, 5, 3, 2, 4, 4, 1, 2, 3, 4, 5, 3, 4, 5, 3, 4, 5, 3, 2, 4, 5),
(3, 4, 5, 3, 4, 5, 3, 2, 4, 3, 1, 2, 3, 4, 5, 3, 4, 5, 3, 4, 5, 3, 2, 4, 5),
(3, 4, 5, 3, 4, 5, 3, 2, 4, 2, 1, 2, 3, 4, 5, 3, 4, 5, 3, 4, 5, 3, 2, 4, 5),
(3, 4, 5, 3, 4, 5, 3, 2, 4, 5, 1, 2, 3, 4, 5, 3, 4, 5, 3, 4, 5, 3, 2, 4, 5)
);

var
I, J, K:integer;
begin

K := 0;

for J := 1 to predmetov do
begin
for I := 1 to studentov do
begin
if TablicaUspevaemosti[J, I] = 2 then
begin
Inc(K);
Break;
end;
end;
end;

writeln('количество предметов, по которым нет ни одной двойки', predmetov - K);
readln;
end.