Составить базу данных, которая позволяет вводить ФИО человека, название улицы

type
  rec = record
    fio: string;
    name_street: string;
  end;
 
var
  a: array of rec;
  n: byte;
 
procedure Input;
begin
  writeln('INPUT---------------------------');
  SetLength(a, a.Length + 1);
  write('Введите ФИО: ');
  readln(a[a.Length - 1].fio);
  write('Введите название улицы: ');
  readln(a[a.Length - 1].name_street);
  writeln('--------------------------------');
end;
 
procedure Output;
begin
  writeln('OUTPUT--------------------------');
  for var i := 0 to a.Length - 1 do
  begin
    writeln('ФИО: ', a[i].fio);
    writeln('Название улицы: ', a[i].name_street);
    writeln;
  end;
  writeln('--------------------------------');
end;
 
procedure Search;
var
  search_street: string;
begin
  writeln('SEARCH--------------------------');
  write('Введите название улицы: ');
  readln(search_street);
  for var i := 0 to a.Length - 1 do
    if (a[i].name_street = search_street) then
      writeln('ФИО: ', a[i].fio);
  writeln('--------------------------------');
end;
 
procedure Sorting;
begin
  for var i := 0 to a.Length - 2 do
    for var j := 0 to a.Length - 2 do
      if (a[j].fio > a[j + 1].fio) then
        Swap(a[j], a[j + 1]);
  Output;
end;
 
procedure Menu;
begin
  writeln('0 - ВЫХОД');
  writeln('1 - ВВОД ЗАПИСИ');
  writeln('2 - ВЫВОД ЗАПИСЕЙ БД');
  writeln('3 - СОРТИРОВКА');
  writeln('4 - ПОИСК ПО УЛИЦЕ');
  write('Введите номер: ');
  readln(n);
  case n of
    0: Exit;
    1: Input;
    2: Output;
    3: Sorting;
    4: Search;
  else write( 'Такого номера нет.');
  end;
end;
 
begin
  SetLength(a, 0);
  repeat
    Menu();
  until n = 0;
end.