Записи для работы с комбинациями разных типов в Pascal, страница 9

      For a:=1 To RecordCount Do

         If Pos(Substring,DataBase[a].Address)<>0 Then

            Begin

            Write (DataBase[a].FamilyName,' ');

            Write (DataBase[a].Name,' ');

            Write (DataBase[a].TelephoneNumber,' ');

            WriteLn (DataBase[a].Address);

            End;

   End;

   Var Friends:tDataBase;

       RecordCount:Integer;

Begin

   CurrentItem:=1;

   ClrScr;

   Repeat

      ShowMenu(CurrentItem);

      MenuResult:=GetMenuResult(CurrentItem);

      Window(1,1,80,25);

      TextBackground(0);

      ClrScr;

      Case MenuResult Of

         1: Enter_DataBase (Friends,RecordCount);

         2: Save_DataBase (Friends,RecordCount);

         3: Show_DataBase(Friends,RecordCount);

         4: Begin

               RecordCount:=RecordCount+1;

               Enter_Record (Friends[RecordCount]);

            End;

         5: Delete_Record(Friends,RecordCount);

         6: Search (Friends,RecordCount);

      End;

      If MenuResult<>7 Then ReadLn;

      ClrScr;

   Until MenuResult=7;

End.