[Microsoft]

Примерно так. Подчеркивание - это пробелы, привычка :)

program Test;

const
__MAXSIZE = 100;
__DATAFILE = 'Data.txt'; // не помню, нужно ли указывать полный путь

var
__Data: text;
__Name: array[1..MAXSIZE] of string;
__Phone: array[1..MAXSIZE] of string;
__i: integer;
__s: string;

begin

for i := 1 to MAXSIZE do begin
__Name[i] := '';
__Phone[i] := '';
end;

Assign(Data, DATAFILE);
Reset(Data);

for i := 1 to MAXSIZE do begin
__if not EOF(Data) then ReadLn(Data, Name[i]) else Break;
__if not EOF(Data) then ReadLn(Data, Phone[i]) else Break;
end;

Close(Data);

while true do begin // Бесконечный цикл

__Write('Введите фамилию: ');
__Read(s);

__if s = 'q' then Break; // Выходим из проги как всегда через жо... через "q" :)

__for i := 1 to MAXSIZE do begin
____if Name[i] = s then begin
______WriteLn(' Номер телефона: ', Phone[i]);
______Break;
____end;
__end;

end;

WriteLn('Спасибо что обратились в нашу контору :)');

end.

Вот наша Data.txt:
Иванов
111-11-11
Петров
222-22-22
Сидоров
333-33-33
Дятлов
656-56-56
Трофимов
233-33-33
Петросян
545-54-54


Если не ошибаюсь, в конце файла обязательно должна быть пустая строка.