Вопросик по паскаль..

[SasukeUciha]

Вот я ввожу фамилии и дату рождения определенного количества человек. И упорядочиваю их в соответствии с годом рождения. Но на экран могу вывести только их год рождения, а надо их имена которые вводил..Как это сделать?...Вот сама программа:

Program Pers;
type Data = record
        God: integer;
        end;
Familia = record
        ImiaFamilia: string;
        DenyRojdenia: Data;
        end;
SpisokFamilii = array[1..50] of Familia;
var a:SpisokFamilii;
 n,i,j,l: integer;
begin
writeln('Введите количество фамилий: ');  readln(n);
For i:=1 to n do
begin
writeln('Даты фамилии: ',i);
writeln('Имя и Фамилия : '); readln(a[i].ImiaFamilia);
Writeln('Год рождения: '); readln(a[i].DenyRojdenia.God);
end;
 
for i:=1 to n-1 do
    for j:=i+1 to n do
        if a[i].DenyRojdenia.God>a[j].DenyRojdenia.God then
                                      begin
                                      l:=a[i].DenyRojdenia.God;
                                      a[i].DenyRojdenia.God:=a[j].DenyRojdenia.God;
                                      a[j].DenyRojdenia.God:=l;
                                      end;
for i:=1 to n do
   writeln(i,' ', a[i].DenyRojdenia.God)
 
end.