Вывести на экран список задолжников по К и более предметам

uses crt;
type uch=record
         fam:string[15];
         ocn:array[1..6]of byte;
         end;
var a:array[1..20]of uch;
    n,i,j,k,p,q:byte;
begin
randomize;
repeat
write('Количество учеников от 2 до 20 n=');
readln(n);
until n in [2..20];
writeln('Введите данные');
for i:=1 to n do
with a[i] do
 begin
  write('Фамилия: ');readln(fam);
  for j:=1 to 6 do
  ocn[j]:=2+random(4);
 end;
clrscr;
writeln('Полный список учащихся');
writeln('------------------------------');
writeln('|    Фамилия    |   Оценки   |');
writeln('------------------------------');
for i:=1 to n do
with a[i] do
 begin
  gotoXY(1,whereY);write('|',fam);
  gotoXY(17,whereY); write('|');
  for j:=1 to 6 do
  write(ocn[j]:2);
  gotoXY(30,whereY);writeln('|');
 end;
writeln('------------------------------');
repeat
write('Количество предметов от 1 до 6 k=');
readln(k);
until k in [1..6];
clrscr;
writeln('Список учащихся не успевающих по ',k,' и более предметам');
writeln('------------------------------');
writeln('|    Фамилия    |   Оценки   |');
writeln('------------------------------');
p:=0;
for i:=1 to n do
with a[i] do
 begin
 q:=0;
 for j:=1 to 6 do
 if ocn[j]=2 then inc(q);
 if q>=k then
  begin
   p:=1;
   gotoXY(1,whereY);write('|',fam);
   gotoXY(17,whereY); write('|');
   for j:=1 to 6 do
   write(ocn[j]:2);
   gotoXY(30,whereY);writeln('|');
  end;
 end;
if p=0 then writeln('Таких учащихся нет')
else writeln('------------------------------');
end.