Примерно так. Подчеркивание - это пробелы, привычка :)
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
|