Выдать список студентов получающих стипендию

uses crt;
const max=30;
type student=record
          fio:string[30];
          nom:integer;
          kurs:integer;
          ocenki:array[1..4] of byte;
          end;
var sp:array[1..max]of student;
n,i,j,k,p:integer;
begin
clrscr;
write(' kolichesvo studentov : ');readln(n);
for i:=1 to n do begin
write(' fio: '); readln(sp[i].fio);
write(' nom: ');readln(sp[i].nom);
write(' kurs: '); readln(sp[i].kurs);
for j:=1 to 4 do begin
write(' ocenki: ');readln(sp[i].ocenki[j]);end;end;
for i:=1 to n do begin
for j:=1 to 4 do
if (sp[i].ocenki[j]<>3) then p:=i;
writeln(sp[p].fio);                end;
end.

const max=30;
type student=record
          fio:string[30];
          nom:integer;
          kurs:integer;
          ocenki:array[1..4] of byte;
          end;
var sp:array[1..max]of student;
    n,i,j,k:integer;
    b,f:boolean;
begin
clrscr;
write(' kolichesvo studentov : ');readln(n);
for i:=1 to n do
 begin
  write(' fio: '); readln(sp[i].fio);
  write(' nom: ');readln(sp[i].nom);
  write(' kurs: '); readln(sp[i].kurs);
  for j:=1 to 4 do
   begin
    write(' ocenka ',j,'=');
    repeat
    readln(sp[i].ocenki[j]);
    until sp[i].ocenki[j] in [3..5]
   end;
 end;
writeln('Список студентов, не имеющих троек:');
b:=false; {есть ли студенты без 3}
for i:=1 to n do
 begin
  f:=true; {без троек ли данный студент}
  j:=1;
  while (j<=4)and f do
  if sp[i].ocenki[j]=3 then f:=false
  else j:=j+1;
  if f then
   begin
    b:=true;
    write(sp[i].fio,'  ');
    for k:=1 to 4 do write(sp[i].ocenki[k]:3);
    writeln;
   end;
 end;
if not b then write('Нет студентов без троек');
readln
end.