TP / 10 / 10-36

uses
  Unit36, Crt;

begin
  repeat
    Menu;
    case ReadKey of
      '1': Viewing;
      '2': Additing;
      '3': Editing;
      '4': Deleting;
      '5': Searching;
      '6': Sorting;
      #27: exit;
    end;
  Until 1<>1
end.