Работа с массивом объектов

[Newnata]

Сведения о книге состоят из фамилии автора, названия книги, наименования издательства и года издания. Упорядочить данные по фамилии автора. Вывести данные о книгах, изданных заданным автором в 1998 г.
У меня никак не получается написать процедуру упорядочивание данных по фамилии автора. Помогите, кто знает.

[Newnata]

procedure kniga.alfavit;
var s: string;
k,i,j: integer;
begin
clrscr;
writeln('Yporydochivanie');
writeln('-----------------------------------------------------');
writeln('| Familiy | Nazvanie | naimenovaniy| God |');
writeln('| avtora | knigi | izdatelstva | izdaniy|');
writeln('-----------------------------------------------------');
Assign (KnigaFile, 'Knigas.dat');
Reset (KnigaFile);
i:=1;
while not eof (KnigaFile) do
begin
read(KnigaFile, r[i]);
i:=i+1;
writeln(r[i].familiur);
end;

for k:=20 downto 1 do
begin
for i:=2 to n do
begin
for j:=n downto i do
if r[j-1].familiur[k]>r[j].familiur[k] then begin
s:=r[j-1].familiur;
r[j-1].familiur:=r[j].familiur;
r[j].familiur:=s;

end;
end;
end;
for i:=1 to n do
writeln(r[i].familiur);
begin
writeln('|',r[i].familiur:20,'|',r[i].nazvanier:20,'|',r[i].naimenovanier:13,'|',r[i].godr:7,'|');
end;
writeln('---------------------------------------------------');
close(KnigaFile);
readkey;
end;

[puporev]

Для таких задач, как эта, предусмотрены записи, т.е. тип Record.
Например
type
kniga=record
avtor,name,izd:string; (это поля записи)
god:word;
Потом создаем массив bib[1..20]of kniga;
Заполняем его например вручную:
bib[1].avtor:='Пушкин';bib[1].name:='Евгений Онегин';
bib[1].izd:='SctPtb';bib[1].god:=1998;
Аналогично все двадцать книг.
Затем работаем с массивом как обычно, только сравниваем или выбираем его поля. Например
for i:=1 to 20 do begin
if bib[i].god=1998 then write(bib[i].avtor,' ',bib[i].name,' ',bib[i].izd);
Поскольку строки можно сравнивать, то сортировка по алфавиту примерно так:

for i:=1 to 19 do begin
    for j:=1 to 19 do
    if bib[j].avtor>bib[j+1].avtor
    then begin
    x:=bib[j]; bib[j]:=bib[j+1];bib[j+1]:=x;
    end;end;
    for i:=1 to 20 do
    Writeln(bib[i].avtor,' ',bib[i].name,' ',bib[i].izd),' ',bib[i].god);
    readln;end.

Посмотрите на форуме в разделе "Помощь студентам". Там не очень давно разбирались подобные задачи и даже выкладывали готовые исходники.
Если что не так написал, извините, писал по памяти. Но направление верное.