Динамические списки Опции

[anuta]

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

Заранее спасибо!!

[volvo]

Поскальку вот тут

(о каждой: количество экзаменов, название дисциплин и оценки на каждом экзамене)

количество экзаменов может быть разным, то результаты сессии можно тоже хранить в виде списка... То есть, получится "список в списке"...

type
  PTExam = ^TExam;
  TExam = record
    title: string[20];
    grade: integer;

    next: PTExam; { <--- Указатель на след. экзамен - для списка экзаменов }
  end;

  PTStudentRec = ^TStudentRec;
  TStudentRec = record
    fio: string;
    kaf_1, kaf_2: integer; { <--- Кафедры в порядке предпочтения }
    sess: array[1 .. 3] of PTExam; { <--- храним 3 списка - по одному для каждой сессии }

    next: PTStudentRec; { <--- Указатель на след. студента, для организации списка студентов }
  end;