VasTar_1

Type
    TFam = String[10];
    TNum = 1000000..9999999;
    TRec = Record
        Fam: TFam;
        Num: TNum;
    End;
    TPage = Array [1..20] Of TRec;
    TBook = Array [1..26] Of TPage;
Var
    B: TBook;
    IP, IR: Integer;
    TN: LongInt;
Begin
    WriteLn('Введите номер телефона, по котором следует вести поиск: ');
    ReadLn(TN);
    For IP:= 1 To 26 Do Begin
      For IR:= 1 To 20 Do Begin
        If B[IP][IR].Num = TN Then Begin
          WriteLn('Найден. Фамилия: ', B[IP][IR].Fam);
          Break;
        End;
      End;
      If B[IP][IR].Num = TN Then Break;
    End;
    If B[IP][IR].Num <> TN Then WriteLn('Запись с таким номером телефона отсутствует.');
    ReadLn;
End.