Даны оценки 10 студентов по 5 предметам.Определить отличников!

uses crt;
const n=3;
      m=5;
type
std=record
    fio:string[15];
    ocn:array[1..m] of byte;
    end;
var gr:array[1..n] of std;
    i,j,k,p,q:byte;
begin
clrscr;
writeln('Введите данные о ',n,' студентах:');
for i:=1 to n do
 begin
  writeln('Студент ',i);
  write(' Фамилия И.О.: ');readln(gr[i].fio);
  writeln(' Введите ',m,' осенок:');
  for j:=1 to m do
   begin
    repeat
     write(' осенка ',j,': ');readln(gr[i].ocn[j]);
    until gr[i].ocn[j] in [2..5];
   end;
 end;
clrscr;
writeln('Сведения об отличниках');
writeln;
writeln('----------------------------');
writeln('|     Ф.И.О.    |  Оценки  |');
writeln('----------------------------');
q:=0;
for i:=1 to n do
 begin
  k:=0;
  for p:=1 to m do
  if gr[i].ocn[j]=5 then k:=k+1;
  if k=m then
   begin
    q:=1;
    gotoXY(1,whereY);write('| ',gr[i].fio);
    gotoXY(17,whereY);write('|');
    for p:=1 to m do write(gr[i].ocn[p]:2);
    gotoXY(28,whereY);write('|');
    writeln;
   end;
 end;
if q=0 then writeln('Отличников нет!');
writeln('----------------------------');
readln
end.