Ввести оценки N ученикам по K предметам. Определить и вывести на экран количество учеников, не получивших ни одной "5"

const n = 20; k = 10;
var
  a: array [1..n, 1..k] of integer;
  i,j,u:integer;
begin
u:=n;
 for i := 1 to n do 
for j := 1 to k do 
a[i,j]:=random(5)+1; 
for i := 1 to n do  
begin
for j := 1 to k do 
write (a[i,j], ' '); 
writeln;
end; {эта таблица нужна, чтоб можно было понять, правильно работает программа или нет}
for i:=1 to n do
  if a[i,j]=5 then u:=u-1;
    {тут надо доработать, чтоб он убирал пятерки в строках, в которых пятерки уже были засчитаны, и сделать так, чтоб он другие столбцы просчитывал}
  writeln(количество учеников, не получивших ни одной "5": ', u);
end.

const n = 6; k = 3;
var
  a: array [1..n, 1..k] of integer;
  i,j,u:integer;
  net5: boolean;
begin
 for i := 1 to n do begin
   for j := 1 to k do begin
     a[i,j]:=random(5)+1; 
     write (a[i,j], ' '); 
   end; 
   writeln;
 end;
 u:=0; 
 for i := 1 to n do begin
   net5 := true;
   for j := 1 to k do 
      if a[i,j]=5 then net5 := false; 
   if net5 then u:=u+1;
 end;
 writeln('количество учеников, не получивших ни одной "5": ', u);
end.