Создать систему управления базой данных (СУБД) "Больница"

uses crt;
type
  TRec = record
    fName:string[31];
    secName:string[31];
    thName:string[31];
    nomer:string;
    Pol:string[20];
    Diag:string[20];
  end;
 
function MainMenu: integer;
var PunktOfMenu: integer;
begin
    writeLn;
    writeLn('Выберите нужное действие:');
    writeLn('1 - Ввод Базы данных');
    writeLn('2 - Вывод Базы данных');
    writeLn('3 - Подменю запросов к Базе данных');
    writeln('4 - Корректировка БД');
    writeLn('5 - Выход');
    write('Ваш выбор:');
    readLn(PunktOfMenu);
    MainMenu := PunktOfMenu;
end;
 
var
  i, n: integer;
  BD: array[1..100] of TRec;
 
  menu, curr: integer;
  R: TRec;
Begin
  n := 0;
  clrscr;
  repeat
    menu := MainMenu;
    case menu of
      1: { Ввод базы }
      begin
        write('Кол-во больных в больнице = '); readln(n);
        for i := 1 to n do
        begin
          writeln('Информация о большом №', i);
          with R do
          begin
            writeln('Имя : '); readln(fname);
            writeln('Фамилия : '); readln(secName);
            writeln('Отчество : '); readln(thName);
            writeln('Номер палаты: '); readln(nomer);
            writeln('Пол  : '); readln(Pol);
            writeln('Диагноз : '); readln(Diag);
            writeln;
          end;
          BD[i] := R;
        end;
      end;
 
      2: { Вывод базы на экран }
      begin
        if n = 0 then writeln('<База пуста>')
        else
          for i := 1 to n do with BD[i] do
          begin
            writeln('Имя : ', fname);
            writeln('Фамилия : ', secName);
            writeln('Отчество : ', thName);
            writeln('Номер палаты: ', nomer);
            writeln('Пол  : ', Pol);
            writeln('Диагноз : ', Diag);
            writeln;
          end;
      end;
 
      3: { Здесь будут запросы }
      begin
      end;
 
      4: { Корректировка базы }
      begin
        write('Какую запись будем корректировать?');
        readln(curr);
        if (curr > 0) and (curr <= n) then
        with BD[curr] do
        begin
          writeln('До корректировки:');
          writeln('Имя : ', fname);
          writeln('Фамилия : ', secName);
          writeln('Отчество : ', thName);
          writeln('Номер палаты: ', nomer);
          writeln('Пол  : ', Pol);
          writeln('Диагноз : ', Diag);
          writeln;
 
          writeln('Введите новые данные:');
 
          writeln('Имя : '); readln(fname);
          writeln('Фамилия : '); readln(secName);
          writeln('Отчество : '); readln(thName);
          writeln('Номер палаты: '); readln(nomer);
          writeln('Пол  : '); readln(Pol);
          writeln('Диагноз : '); readln(Diag);
          writeln;
        end
        else
          writeln('<Несуществующая запись>');
      end;
    end;
  until menu = 5;
end.