Сформировать массив записей с указанными полями и вывести его на экран в виде таблицы.

type person = record
   surname, street : string;
   house, room : integer
end;
 
var a : array[1..100] of person; i, j, n : integer; s : string; t : person;
begin
   write('Количество записей = '); readln(n);
   for i := 1 to n do begin
      writeln('Персона #', i);
      write('Фамилия: '); readln(a[i].surname);
      write('Улица: '); readln(a[i].street);
      write('# Дома: '); readln(a[i].house);
      write('Квартира: '); readln(a[i].room)
   end;
   writeln('Фамилии' : 15, 'Улица' : 15, '# Дома' : 8, 'Квартира' : 8);
   for i := 1 to n do
      writeln(a[i].surname : 15, a[i].street : 15, a[i].house : 8, a[i].room : 8);
   write('Фамилия, адрес которой надо найти: '); readln(s);
   j := -1;
   for i := 1 to n do
      if a[i].surname = s then begin
         j := i;
         break
      end;
   if j <> -1
   then writeln('Адрес: ', a[j].street, ', д. ', a[j].house, ', кв. ', a[j].room)
   else writeln('Не найдено');
   {сортировка выборкой}
   for i := 1 to n - 1 do
      for j := i + 1 to n do
         if a[i].surname > a[j].surname then begin
            t := a[i];
            a[i] := a[j];
            a[j] := t
         end;
   writeln('Фамилии' : 15, 'Улица' : 15, '# Дома' : 8, 'Квартира' : 8);
   for i := 1 to n do
      writeln(a[i].surname : 15, a[i].street : 15, a[i].house : 8, a[i].room : 8);
end.