Программа - телефонный справочник
 

предприятие имеет местную телефонную станцию на 20 номеров. телефонный справочник данного предприятия для каждого номера телефона содержит номер помещения и список служащих, сидящих в данном помещении.
составить программу котоая:
корректирует базу;
по номеру телефона выдает номер помещения и список сидящих в нем людей;
по номеру помещения выдает номер телефона;
по фамилии выдает номер телефона и номер помещения.
Номер телефона-двузначный. в одном помещение может находиться от 1 до 4 служащих

Мне нужно подкоррективовать мое решение >.<

ааааа...помогите пожалуйста(((

М-да, ну если Вы действительно сами сумели создать ТАКОЕ, то, полагаю, наша помощь Вам не требуется. Единственное... у Вас практически в каждой подпрограмме в качестве входного параметра фигурирует конструкция типа
a:array[1..n] of note
Не знаю, как Ваш транслятор, а мой такого не понимает, ему можно только
a:array of note
Ну или предварительно ввести
TYPE AR=array[1..n] of note и уже в параметрах подпрограммы указывать тип AR. Но не думаю, что в этом Ваши сложности (слишком просто). А в остальном - ну кто же, кроме Вас, сумеет правильно протестировать созданного Вами же монстра?

ахаахха
мой монстр каварен и ужасен) но если честно он создавался по образцу и поэтому до ума у меня ее довести не получается ><