Постановка задачи. 
Программа "электронная сваха" для службы знакомств

Используя динамические списки разработать программу «электронная сваха» для службы знакомств.

Входные данные:

Типизированный файл со списком невест, типизированный файл со списком женихов.

При работе программы данные из файлов загружаются в два списка: список женихов и список невест. В каждом списке кандидат (жених или невеста) характеризуется записью вида.

Type.

ZAP = Record.

Nom: Integer;

MyData: record.

Vz, Rst, Vs: Integer;

end;

Critery: record.

VzMin, VzMax: Integer;

RstMin, RstMax: Integer;

VzMin, VzMax: Integer;

end;

end;

где Nom — порядковый номер кандидата;

MyData — данные о кандидате (возраст, рост, вес);

Critery — аналогичная запись, содержащая требования к партнеру (в виде диапазона: Min — Max).

Требуется объединить эти списки в список пар (без повторения женихов и невест) с учетом требований кандидатов.

Выходные данные:

Типизированный файл со списком пар, файл со списком невест, файл со списком женихов.

В программе должны присутствовать следующие процедуры:

• 1. Формирование динамических списков женихов и невест;
• 2. Вывод списков на экран;
• 3. Подбор пар и вывод на экран;
• 4. Добавление кандидата в список;
• 5. Удаление кандидата из списка;
• 6. Поиск элемента списка по соответствующему полю;
• 7. Сортировка по алфавиту;
• 8. Запись в файл и загрузка из файла.

Элемент списка имеет следующую структуру:

Type.

POffice=^Office;

Office = Record.

Nom: Integer;

MyData: record.

Vz, Rst, Vs: Integer;

end;

Critery: record.

VzMin, VzMax: Integer;

RstMin, RstMax: Integer;

VzMin, VzMax: Integer;

end;

Next: POffice;

end;

где Next — указатель на следующий элемент списка.

Программа д.б. написана согласно структурному программированию. Использование меток недопустимо. В программе обязательно должно быть графическое меню.

тестирование программа алгоритм.