Паскаль. Помогите разобраться
Вот условие:
Сформировать массив, каждый элемент которого имеет следующую структуру
владелец= фамилия: string; адрес: string; марка автомобиля: string; рег. номер: string; год выпуска: 1900..2000;
Вывести на экран сообщение пользователю вида:
Выберете номер действия:
1.ввод исходных данных;
2.вывод всей базы данных;
3.сортировка базы данных по алфавиту (по фамилии) ;
4.сортировка базы данных по году выпуска
5.определить : владельца самого старого автомобиля;
6.вывести фамилии владельцев и номера автомобилей данной марки (введенной пользователем)
7.вывести количество автомобилей каждой марки
0--выход из программы;
Ваш выбор___
Трудность возникает с пунктом номер 7, не знаю как это осуществить. Можно ввести несколько переменных заведомо зная сколько марок будет в файле, но если это неизвестно. Необходимо универсальную процедуру создать. Как подскажите?
Вот что я написал http://pastebin.com/VTJEzGUp. Все равно работать нормально не хочет. Что исправит или как то по другому сделать?? ?У меня уже мозг дымит я не знаю как
http://pastebin.com/VTJEzGUp рабочая ссыль