Задача на строки и массивы, программа для работы с базой тел.станции Опции

[demure]

Пожалуйста! Помогите срочно! Хотя бы наводку какую-нибудь... Вообще без понятия, что тут делать

Программа должна содержать меню и ввод-вывод в окна на экране. Необходимо предусмотреть контроль ошибок пользователя при вводе данных.
При разработке программы применить технологию нисходящего проектирования. Логически законченные объекты оформить в виде подпрограммы, все необходимые данные которым передаются через список параметров. Использование глобальных переменных следует избегать.

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

[demure]

Вот, наконец-то занялся программой.
Сделал заполнение базы. Код такой:

Код

uses Crt;
type
TelefStation = Record
phone: LongInt;
nomer: byte;
FIO: string;
end;
var
Book: array[1..20] of TelefStation;
Nums,I: byte;
code: integer;
c: char;
quit: boolean;
{dobavlenie novoi zapisi}
procedure New_Item;
var
Kom:byte;
F:String;
Tl:LongInt;
begin
Clrscr;
Inc(Nums);
if Nums>20 then
begin
write('maksimalnoe kolichestvo zapisei!');
exit; end;
begin
writeln('Zapis N:',Nums); writeln;
writeln('Vvedite Nomer telef:');
readln(Tl);
writeln('Vvedite Nomer pomesheniya:');
readln(Kom);
writeln('Vvedite FIO');
readln(F);
writeln;
with Book[Nums] do
begin
FIO:=F;
nomer:=Kom;
phone:=Tl;
end;
Write('Novaya zapis uspeshno dobavlena!');
end;end;

далее по заданию - корректировка базы.
т.е., как объяснила (мало что понимающая, к сожалению) преподша, нужно, чтобы программа могла редактировать любую запись (удалять, изменять и пр.)
с удалением, я думаю не сложно... а вот с изменением. не совсем понимаю, как делать... нужно еще искать наверное, или, может поможете?