Задача на список, Упорядочивание и поиск в списке Опции

[Инкогнито]

Здраствуйте, почти все долги сдал, но есть проблемы с задачей на списки, вот задание:
*Создать программу формирования данных о школьниках: фамилия, имя, год рождения, класс. Организовать выбор по возрасту(сравнивая, от 2007 отнимать написанный), упорядочить выдаваемый список по годам рождения.* Моя сегодняшняя программа такова:

program Spisok2;
uses crt;
const N=10;
var
   k,j:byte;
   t:array[1..N] of record
   f:string[15];
   i:string[10];
   o:string[15];
   o1:byte;
end;
begin
     clrScr;
     writeln('Введите количество школьников');
     readln(k);
     clrScr;
     for j:=1 to k do
     begin
     writeln('Фамилия');readln(t[j].f);
      writeln('Имя');readln(t[j].i);
      writeln('Год рождения');readln(t[j].o);
      writeln('Класс');readln(t[j].o1);
      end;
      clrScr;
      writeln('Фамилия        Имя         Год рождения         Класс');
      for j:=1 to k do
      begin
      Gotoxy(1,j+1);writeln(t[j].f);
      Gotoxy(16,j+1);writeln(t[j].i);
      Gotoxy(32,j+1);writeln(t[j].o);
      Gotoxy(46,j+1);writeln(t[j].o1);
      end;
      readln;
      end.

Не пойму, как организовать выбор по возрасту( *хотя если по логике нужно от 2007 отнимать написанный, но не знаю как это в программе описать*) и как упорядочить по годам рождения, помогите пожалста!

[Ozzя]

пытался подстроить под свои данные, инфига не вышло...

Свои попытки ... в студию! (С)