Блок схема код БД

program database;
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.