Ребята, кому не лень проверьте пожалуйста программу. Работать - работает. А вот правильно ли. Пишу довольно-таки криво. Если что не так , поскажите, пожалуйста.

Условия :
Разработайте электронный список телефонных номеров, который может сохранять элементы, востребовать и угасать. Используйте следующие декларации:
CONST
max = …;
TYPE
Entry = RECORD
firstName: STRING[20];
lastName: STRING[30];
phoneNumber: STRING[15];
END; (*RECORD*)

PhoneBook = ARRAY [1..max] OF Entry;
Список телефонных номеров должен заполняться беспрерывно , Вы можете отказываться от сортировки. При удалении элемента пробел нужно закрывать сдвигом остальных элементов. Обратился бы к каталогу могут происходить только через следующие процедуры или функции. (Вы выбираете сами подходящие параметры и стоимость возврата).

PROCEDURE StoreNumber(… VAR ok: BOOLEAN);
Сохраняет Имя, Фамилию и номер телефона в справочнике.
Для каждого лица максимум один телефонный номер может быть. Если номер снова сохраняется для лица, то нужно стирать старый номер. При успешном сохранении должен поставлять ОК TRUE, в остальном (в случае уже полного каталога) FALSE.

FUNCTION NumberFor(…): …;
Ищет для данных имени и фамилии соответствующий телефонный номер из каталога и возвращает его. Если такого нет , то возращается пустая строка символов .

PROCEDURE RemoveEntry(… VAR ok: BOOLEAN): …;
Удаляет запись для данного имени и фамилии из каталога. Выходной параметр должен идти ОК TRUE zurückliefern, если соответствующий элемент успешно удален, FALSE, если соответствующая запись не была найдена.

PROCEDURE DisplayPhoneBook(…);
Выводит все элементы в каталоге (имя и номер) на дисплее.

FUNCTION NumberOfEntries(…): …;
Возвращает количество записей на текущий момент в справочнике.

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

Вот что у меня получилось:


unit phone;
interface
	const
		MAX = 15;
	type
		Entry = record
			firstName: string[20];
			lastName: string[30];
			phoneNumber: string[15];
		end;
	PhoneBook = ARRAY [1..MAX] of Entry;

	procedure StoreNumber(phoneEntry: Entry; var pb: PhoneBook; var ok: boolean);
	procedure RemoveEntry(phoneEntry: Entry; var pb: PhoneBook; var ok: boolean);
	procedure DisplayPhoneBook(pb: PhoneBook);
	procedure NumberFor(pb: PhoneBook; firstName, lastName: string; var index: integer; var e: Entry);
	function NumberOfEntries(pb: PhoneBook): integer;
	function IsEmpty(a : Entry) : boolean;
	procedure InitArray(var pb: PhoneBook);
implementation
	procedure InitArray(var pb: PhoneBook);
	var
		tmp: Entry;
		i: integer;
	begin
		tmp.firstName := '';
		tmp.lastName := '';
		tmp.phoneNumber := '';
		for i := 1 to high(pb) do pb[i] := tmp;
	end;

	function NumberOfEntries(pb: PhoneBook): integer;
	var
		nempty, i: integer;
	begin
		nempty := 0;
		for i:= 1 to high(pb) do
		begin
			if not IsEmpty(pb[i]) then nempty := nempty + 1;
		end;
		NumberOfEntries := nempty;
    end;

	procedure NumberFor(pb: PhoneBook; firstName, lastName: string; var index: integer; var e: Entry);
	var
		i: integer;
		tmp: Entry;
	begin
		index := 0;
		tmp.firstName := '';
		tmp.lastname := '';
		tmp.phoneNumber := '';

		for i := 1 to high(pb) do
		begin
			if (pb[i].firstname = firstname) and (pb[i].lastname = lastname) then
			begin
				tmp := pb[i];
				index := i;
			end;
		end;

		e := tmp;
	end;

	procedure StoreNumber(phoneEntry: Entry; var pb: PhoneBook; var ok: boolean);
	var
		tmp: Entry;
		index: integer;
		tmpt: boolean;
	begin
		NumberFor(pb, phoneEntry.firstName, phoneEntry.lastname, index, tmp);
		tmpt := IsEmpty(tmp);
		if IsEmpty(tmp) then
		begin
			if NumberOfEntries(pb) < high(pb) then
			begin
				pb[NumberOfEntries(pb) + 1] := phoneEntry;
				ok := true;
			end
				else ok := false;
		end
			else
		begin
			pb[index] := phoneEntry;
			ok := true;
		end;	
	end;

	procedure RemoveEntry(phoneEntry: Entry; var pb: PhoneBook; var ok: boolean);
	var
		i, index: integer;
		tmp: Entry;
		tmpPB: PhoneBook;
	begin
        ok := false;
		tmp.firstName := '';
		tmp.lastname := '';
		tmp.phoneNumber := '';
		
		for i := 1 to high(pb) do
		begin
			if (pb[i].firstName = phoneEntry.firstName) and (pb[i].lastName = phoneEntry.lastName) then
            begin
				pb[i] := tmp;
                ok := true;
            end;
		end;
		
		InitArray(tmpPB);

		index := 1;
		for i := 1 to high(pb) do
		begin
			if not IsEmpty(pb[i]) then
			begin
				tmpPB[index] := pb[i];
				index := index + 1;

			end;
		end;
		
		pb := tmpPB;
	end;
	
	function IsEmpty(a : Entry) : boolean;
	begin 
		IsEmpty := (a.firstName = '') and (a.lastName = '') and (a.phoneNumber = '');
	end;
	
	procedure DisplayPhoneBook(pb: PhoneBook);
	var
		i: integer;
	begin
		WriteLn('PhoneBook:');
		for i := 1 to high(pb) do
		if (not IsEmpty(pb[i])) then
		begin
			WriteLn('First name: ', pb[i].firstName);
			WriteLn('Last name: ', pb[i].lastName);
			WriteLn('Phone: ', pb[i].phoneNumber);
		end;
	end;
end.



program test;
uses
	crt, phonebookUnit;
var
	currentEntry: Entry;
	pb: PhoneBook;
	result: boolean;

begin
	WriteLn('Please enter first name, last name and phone number for new entry.');
	Write('First name: '); ReadLn(currentEntry.firstName);
	Write('Last name: '); ReadLn(currentEntry.lastName);
	Write('Phone number: '); ReadLn(currentEntry.phoneNumber);

	StoreNumber(currentEntry, pb, result);
	RemoveEntry(currentEntry, pb, result);
	DisplayPhoneBook(pb);
end.