Черновик БД

program bd;
uses crt;

var
f: text;


begin
    clrscr;
    assign (f, 'File.txt');
    repeat
         clrscr;
         writeln ('Viberite punct');
         writeln ('1 - sozdanie');
         writeln ('2 - prosmotr');
         writeln ('3 - dobavlenie');
         writeln ('4 - poisk');
         writeln ('5 - udalenie');
         writeln ('6 - sortirovka');
         writeln ('7 - exit');

         readln (key);

              case key of

              1: begin
                 readln;
                 end;

              2: begin
                 readln;
                 end;

              3: begin
                 readln;
                 end;

              4: begin
                 readln;
                 end;

              5: begin
                 readln;
                 end;

              6: begin
                 readln;
                 end;

              7: begin
                 readln;
                 end;

              until key=7 close (f);

redln;
end.