Известны оценки каждого из 15 студентов,полученные в сессию на экзаменах по трем предметам.Организовать ввод информации по этой таблице и определить кол-во предметов,по которым были получено оценки 5 и 4 — Pascal(Паскаль)

uses crt;
const
n=15;
m=3;
var a:array[1..m,1..n] of byte;
    i,j,k,s:byte;
begin
clrscr;
writeln('Введите по ',n,' оценок по ',m,' предметам');
for j:=1 to m do
 begin
  writeln('Предмет ',j);
  for i:=1 to n do
   begin
    repeat
    write('a[',j,',',i,']=');
    readln(a[j,i]);
    until a[j,i] in [2..5];
   end;
 end;
clrscr;
writeln('Оценки  по ',m,' предметам');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[j,i]:3);
  writeln;
 end;
s:=0;
for j:=1 to 3 do
 begin
  k:=0;
  for i:=1 to n do
  if a[j,i]>3 then k:=k+1;
  if k=n then s:=s+1;
 end;
write('Оценки 4 и 5 получены по ',s,' предм.');
readln
end.