Вывод на экран фамилий больше определенного возвраста

[SasukeUciha]

Как это соорудить? Я сделал начальную часть и ввод данных, а как сделать вывод списка фамилий больше определенного возраста V?..я сделал только поиск с самым большим возврастом, помогите с изменением кода пожалуйста).

Program Pers;
 uses crt;
type Data = record
        Mesety: 1..12;
        Deny: 1..31;
        God: integer;
        end;
Familia = record
        ImiaFamilia: string;
        DenyRojdenia: Data;
        end;
SpisokFamilii = array[1..50] of Familia;
var a:SpisokFamilii;
 n,i,v: integer;
  max: Familia;
begin
writeln('Введите количество фамилий: ');  readln(n);
For i:=1 to n do
begin
writeln('Даты фамилии: ',i);
writeln('Имя и Фамилия : '); readln(a[i].ImiaFamilia);
Writeln('День рождения: '); readln(a[i].DenyRojdenia.Deny);
Writeln('Месяц рождения: '); readln(a[i].DenyRojdenia.Mesety);
Writeln('Год рождения: '); readln(a[i].DenyRojdenia.God);
end;
{Не выходит дальше}
max.DenyRojdenia.God := MaxInt;
For i:=1 to n do
   if a[i].DenyRojdenia.God < max.DenyRojdenia.God then max:=a[i];
writeln('Список фамилий: ' ,max.ImiaFamilia);

end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.