Примерно так. Подчеркивание - это пробелы, привычка :) 
 
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 
 
 
Если не ошибаюсь, в конце файла обязательно должна быть пустая строка.
		 
		
		
		
		
		
		
			
				__________________ 
				LifeStream 
Lin Kuei
			 
		
		
		
		
	 |