Работа со списками в Delphi

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

• вывода списка студентов на экран
• вывода списка студентов на отчисление (три или более неудовлетворительных оценки (<4))
• вывода списка студентов-задолжников (одна или две неудовлетворительных оценки)
• поиска студентов по ФИО
• добавления студента в список
• удаления студента из списка
• редактирование элемента списка
• выхода из программы с сохранением изменений
• выхода из программы без сохранения
• удаления всего списка
• сортировки списка по ФИО.

Программа написана в консольном режиме. Предусмотрены все нестандартные ситуации, проведены всевозможные тесты.

Приложения:

procedure sortList (list:TSP);
var temp,x:TSP;
    tmps:Tzap;
    F:file of Tzap;
begin
  Assign(F,'spisok_1.dat');
  Rewrite(F);
  x:=list;
  while x<>nil do
  begin
    temp:=x^.ADR;
      while temp<>nil do
      begin
        if temp^.inf.FIO < x^.inf.FIO then
        begin
          tmps:=temp^.inf;
          temp^.inf:=x^.inf;
          x^.inf:=tmps;
        end;
        temp:=temp^.ADR;
      end;
      x:=x^.ADR;
  end;
  Writeln;
  Writeln('Список отсортирован');
  while list<>nil do
  begin
    write(F, list^.inf);
    list := list^.ADR;
  end;
  Close(F);
end;

function searchFIO(list: TSP; vsp: byte): TSP;
var
  name: string[36];
  flajok: Boolean;
begin
  flajok := True;
  Writeln('Введите ФИО студента: ');
  Readln(name);
  if list <> nil then
    while (list <> nil) and (trim(name) <> Trim(list^.inf.FIO)) do
      list := list^.ADR;
  if list = nil then
  begin
    writeln('Элемент с искомым значением отсутствует');
    flajok := False;
    searchFIO := list;
    Inc(i);
  end;
  if flajok = True then
  begin
    searchFIO := list;
    if vsp = 1 then
    Writeln(list^.inf.NG:8, list^.inf.FIO:36, list^.inf.OAIP:6, list^.inf.MAT:4, list^.inf.OKT:4, list^.inf.FIL:4, list^.inf.SB:8:2);
  end;
end;

СОДЕРЖАНИЕ АРХИВА:

• искомый dpr-файл
• типизированный файл spisok_1.dat (список студентов)
• типизированный файл spisok_1_help.dat (вспомогательный файл, в случае выхода без сохранения)
• текстовый файл Spisok.txt (для сохранения списка студентов на отчисление)
• текстовый файл Spisok_2.txt (для сохранения списка студентов-задолжников)