Работа с записями

[Intersap]

Нужна помощь.

Создать запись, в которой будет содержатся информация про студента: ФИО студента, код групи, год рождения, пол, экзаменационные оценки первой сессии, экзаменационные оценки первой сессии.
Написать программу, которая определяет предмет, которые все сдали наилучше в первую сессию.

Мой код.

program lab13;
uses crt;
type Stud = record
               Name,Group: String;
               Data: Integer;
               Gender: String;
            end;
     Ispit1 = record
                Teormeh,Mathematica,Phisics,Geometry:Integer;
              end;
     Ispit2 = record
                Teormeh,Mathematica,Sopromat:Integer;
              end;
var i: Integer;
    Student:Stud;
    Exam1:Ispit1;
    Exam2:Ispit2;
begin
     clrscr;
     writeln;
     for i:=1 to 17 do begin
                            textcolor(14);
                            write(i);
                            textcolor(white);
                            write(' ФИО студента:   ');
                            readln(Student.Name);
                            write('  Группа:            ');
                            readln(Student.Group);
                            write('  Дата рождения: ');
                            readln(Student.Data);
                            write('  Пол студента:    ');
                            readln(Student.Gender);
                            writeln('  Оценки за первую сессию:');
                            write('       Физика:                           ');
                            readln(Exam1.Phisics);
                            write('       Математика:                     ');
                            readln(Exam1.Mathematica);
                            write('       Теоретическая механика:   ');
                            readln(Exam1.Teormeh);
                            write('       Начертательная геометрия: ');
                            readln(Exam1.Geometry);
                            writeln('  Оценки за вторую сессию:');
                            write('       Физика:                            ');
                            readln(Exam1.Phisics);
                            write('       Математика:                      ');
                            readln(Exam1.Mathematica);
                            write('       Теоретическая механика:    ');
                            readln(Exam1.Teormeh);
                            write('       Сопротивление материалов: ');
                            readln(Exam2.Sopromat);
                            writeln;
                       end;
     for i:=1 to 17 do begin

                       end;
     readkey;
end.

А вот как создать проверку записей?