База данных "Библиотека". Найти студентов 5-го курса, задолжавших книги

program Zaborg_Student;
 
const
  n = 2;
 
type
  stud = record
    fio: string[20]; {фамилия имя отчество}
    group: string[5]; {шыфр группы}
    course: string[20]; {курс групы}
    readers_ticket: string[20]; {билет читателей}
    data_zapisi: string[20]; {дата записи в библиотеку}
    doljnik: string[20];{должник}
    ne_doljnik: string[20];{не должник}
    name_book: string[20];{название взятой книги}
    data_vozrata: string[20];{дата возвращения взятой книги}
  end;
 
var
  m: array[1..n] of stud;
  i, j, course, readers_ticket, data_zapisi, data_vozrata: integer;
 
begin
  writeln('Введите информацию о студентах группы');
  for i := 1 to n do
  begin
    Writeln('Студент №', i);
    Write('ФИО ');
    Readln(m[i].fio);
    Write('Курс ');
    Readln(m[i].course);
    Write('Группа ');
    Readln(m[i].group);
    Write('билет читателя ');
    Readln(m[i].readers_ticket);
    Write('Дата записи в библиотеку ');
    Readln(m[i].data_zapisi);
    Write('название взятой книги ');
    Readln(m[i].name_book);
    Write('Дата возвращения взятой книги ');
    Readln(m[i].data_vozrata);
    Writeln('Должник или нет д - должник/н - нет');
    for j := 1 to 2 do Readln(m[i].doljnik[j], m[i].ne_doljnik[j]);
    Writeln('Дата возвращения взятой книги ');    
    for j := 1 to 1 do Readln(m[i].data_vozrata[j]);
  end;
end.