Надо создать программу, если Дано, сделал много пунктов а 4 не получается решить, помогите если сможете, хоть советом или примером):

type Data = record
        Deny: 1..31;
        Mesyats: 1..12;
        God: integer;  end;
Celovek = record
        ImiaFamilia: string;
        DataRojdenia: Data;
        end;
SpisokCelovek = array[1..50] of Celovek;

Сделать программу которая будет читать с клавиатуры данные n человек(n< или равно 50) и выводить на экран:
h. Список людей которые имеют больше v лет
i. Список людей в алфавитном порядке
j. Список людей упорядоченный в соответствии с датой рождения
k. Список людей такого же возраста (рожденных в том же году)

Не решил все, но завтра уже сдавать, так что можете не отвечать)

Nagato, погоди. Твоя тема озаглавлена "Списки", но то, что ты сделал, к спискам не имеет никакого отношения. Так что же тебе все-таки надо?..