Составить программу назначения стипендии студентам по результатам сессии

{Составить программу назначения стипендии студентам по результатам сессии,
 используя следующие правила: если все оценки 5, 
 то назначается повышенная стипендия; если все оценки 4 и 5, 
 то назначается обычная стипендия; если есть оценка 3,
 то стипендия не назначается. Вывести списки студентов, 
 назначенных на повышенную и обычную стипендию с указанием их фамилий, курса и группы.}
  
 type stip=record
      fio: string[45];
      data_r: string[8];
      facult: string[30];
      curs: 1..5;
      grupp: string[6];
      kol_exam: string[10];
      kol_3: 0..10;
      kol_4: 0..10;
      kol_5: 0..10;
     end;
 var student: array[1..100] of stip;
  i,n:integer;
   
    begin
    writeln('Введите кол-во студентов');
    readln(n);
    for i:=1 to n do
    begin
     writeln('Введите сведения о ' , I , '-м  студенте');
     writeln ('Введите фамилию, имя и отчество');
     readln (student[i].fio);
     writeln('Введите дату рождения');
     readln (student[i].data_r);
     writeln('Введите факультет');
     readln(student[i].facult); 
     writeln('Введите курс');
     readln(student[i].curs);
     writeln('Введите группу');
     readln(student[i].grupp);
     writeln('Введите количество экзаменов');
     readln(student[i].kol_exam);
     writeln('Введите кол-во 3');
     readln(student[i].kol_3);
     writeln('Введите кол-во 4');
     readln(student[i].kol_4);
     writeln('Введите кол-во 5');
     readln(student[i].kol_5);
     end;
     writeln('Ввод закончен');
     writeln;
   
         for i:=1 to 100 do 
           begin
           if (student[i].kol_3 = 0) and (student[i].kol_4 >= 1) and (student[i].kol_5 >= 1) then
             begin
           writeln('Начисляется обычная стипендия');
           writeln('ФИО ' , student[i].fio);
           writeln('Курс ' , student[i].curs);
           writeln('Группа ' , student[i].grupp);
           readln(student[i].fio, student[i].curs, student[i].grupp)
             end;
   
          if (student[i].kol_3 = 0) and (student[i].kol_4 = 0) and (student[i].kol_5>1) then
             begin
           writeln('Начисляется повышенная стипендия');
           writeln('ФИО ' , student[i].fio);
           writeln('Курс ' , student[i].curs);
           writeln('Группа ' , student[i].grupp);
           readln(student[i].fio, student[i].curs, student[i].grupp);
             end;
         end;
         
 end.