Type
STDN = record
FIO: String;
O1,O2,O3,O4:integer;
end;

var
j,i:integer;
STUDNI:array [1..1000] of ^STDN;
bol:char;
begin
bol:='y';
i:=0;
writeln('Введите студней и их 4 оценки');
while bol='y' do
begin
inc(i);
new(STUDNI[i]);
  begin
   write('ФИО ',i,':');readln(STUDNI[i]^.FIO);
   write('Оценка 1 :');readln(STUDNI[i]^.O1);
   write('Оценка 2 :');readln(STUDNI[i]^.O2);
   write('Оценка 3 :');readln(STUDNI[i]^.O3);
   write('Оценка 4 :');readln(STUDNI[i]^.O4);
  end;
writeln('Есть еще студни y/n');read(bol);
end;
for j:=1 to i do
begin
if (STUDNI[j]^.O1<3)or
   (STUDNI[j]^.O2<3)or
   (STUDNI[j]^.O3<3)or
   (STUDNI[j]^.O4<3)then
Dispose(STUDNI[j])
else Writeln(STUDNI[j]^.FIO);
end;
end.