Вывести ФИО и стипендию студентов, имеющих только положительные оценки

uses crt;
type anketa=record
   fio: string[45];
   dat_r: string[8];
   pol: string[20];
   fizika:integer;
   matematika:integer;
   informatika:integer;
   stipendiya:integer;
   end;
 
var student: array [1..100] of anketa;
   I,n: integer;
begin
 
   writeln('Введите количество студентов:');
   read(n);
   for I:=1 to n do
   begin
      writeln ('введите фамилию, имя и отчество');
      read(student[I].fio);
      writeln ('введите дату рождения');
      readln (student[I].dat_r);
      writeln ('Введите пол студента');
      readln(student[I].pol);
       writeln ('Введите стипендию студента');
      readln(student[I].stipendiya);
      writeln ('Введите оценку по физике');
      readln(student[I].fizika);
      writeln ('Введите оценку по математике');
      readln(student[I].matematika);
      writeln ('Введите оценку по информатике');
      readln(student[I].informatika);
   end;
   writeln ('ввод закончен');
   writeln ;
   
   for I:=1 to n do
      if (student[I].matematika>=3) and (student[I].informatika>=3)  and (student[I].fizika>=3) then
         writeln(' фамилия студента : ', student[I].fio);
         writeln(' Cтипендия студента : ', student[I].stipendiya);
end.