Ввести номер одного из друзей и вывести его имя

[Kovr]

помогите написать программу, завис на этом,(
Ввести номер телефона одного из четырех друзей. Вывести его имя.
буду сильно благодарен

[VIK_aka_TOR]

Необходимо подобие телефонной книги? Как в андроиде по вводу номера постепенно выводятся подходящие под этот номер контакты.

[Serge_Bliznykov]

type
PhoneRec = record
  pnum : string[8],
  name : string[45]
end;

const MaxCount = 2;
var abook:array[1..MaxCount] of PhoneRec;
  i, iFound : integer;
  FindPnoneNum : string;
begin
   abook[1].pnum :='1111'; abook[1].name:='Vasya';
   abook[2].pnum :='1222'; abook[2].name:='Ivan';

   WriteLn('Введите номер друга (например, 1111 или 1222: ');
   ReadLn(FindPnoneNum);
   iFound ;= -1;
   for i:=1 to MaxCount do
      if abook[i].pnum=FindPnoneNum then begin iFound := i; Break; end;
   if iFound<0 then WriteLn('Нет друга с заданным номером')
   else WriteLn('Найден друг: ', abook[iFound].name);
   ReadLn
end.