Создать массив структур, DELPHI

[Alexey1002]

Необходимо создать массив структур A(n), где n<=30, содержащий сведения о книгах: автор, название книги и год издания. Используя функцию, выбрать из этого массива записи о книгах, изданных до 1995 года, и упорядочить этот список по году издания. В главной функции полученный массив вывести на экран.
Помогите, заранее большое спасибо!

Вот код, что у меня получилось написать, но это самое начало:
Код:

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

const
nmax=20;
type
comp=record
avtor:string[10];
nazvanie:string[5];
god:Integer;
end;
var
spis:array[1..nmax] of comp;
n,i:Integer;
begin
write('Cislo knig:');
Readln(n);
Writeln('Vvod dannix o knigax:');
for i:=1 to n do
begin
Writeln(i:2, ') avtor, nazvanie, god izdania(cherez ENTER):');
Readln(spis[i].avtor);
Readln(spis[i].nazvanie);
Readln(spis[i].god);
end;
Writeln;
Writeln('------------------------------');
Writeln('| N | Avtor | Nazvanie | God |');
Writeln('------------------------------');
for i:=1 to n do
Writeln(i:3, spis[i].avtor:9, spis[i].nazvanie:5, spis[i].god:9);
Writeln;


{ TODO -oUser -cConsole Main : Insert code here }
end.

[alexcoder]

Alexey1002, обращайтесь e-mail: informatik101@mail.ru vk.com/alexcoder1

[Fleg]

если еще актуально - пишите alfle@mail.ru

[JIeIIIa]

Если еще актуально, пишите: stealth(собака)bigmir.net
Сразу указывайте на когда нужна работа и предполагаемый бюджет.

[Gilius]

Если актуально, пишите giliussoft@yandex.ru