Записи, массивы записей, сортировка.

[H4t]

Добрый день, требуется помощь по следующей задаче:
Описать, используя структуру данных запись, почтовую сортировку (город, улица, дом, квартира, фамилия, ценность). Определить:
1) сколько и куда (список городов) отправлено посылок ценностью выше 100 000 рублей;
2) вывести данные о получателе по введенной пользователем фамилии.
Что имеется на данный момент (код не мой, но написано весьма читабельно, не разобрался толком с записями, а время поджимает, поэтому и прошу помощи):

uses crt;
const
  nmax=100;
type
  post=record
      town: string;
      strt: string;
      nomb: integer;
      name: string;
      pric: integer;
    end;
var
  a: array[1..nmax] of post;
  b: array[1..nmax] of string;
  i,j,n,k,sum,m,p,q,pos:integer;
begin
  {ввод данных}
  writeln('Сколько посылок отправлено? ');
  readln(n);
  for i:=1 to n do
  begin
    writeln('Данные по ',i,'-й посылке:');
    with a[i] do
    begin
      write('  Город: ');
      readln(town);
      write('  Улица: ');
      readln(strt);
      repeat
        write('  Квартира: ');
        readln(nomb);
      until nomb>0;
      write('  Кому: ');
      readln(name);
      repeat
        write('  Ценность: ');
        readln(pric);
      until pric>0;
    end;
  end;

  for i:=1 to n do
    b[i]:=a[i].town;

  {создаем массив b - список городов}
  m:=n; i:=1;
  while i<=m do
  begin
    j:=i+1;
    while j<=m do
    begin
      if b[j]=b[i] then
      begin
        for k:=j to m-1 do
        b[k]:=b[k+1];
        m:=m-1;
      end
      else j:=j+1;
    end;
    i:=i+1;
  end;

  {считаем суммы > 100000}
  for i:=1 to m do
  begin
    sum:=0;
    pos:=0;
    for j:=1 to n do
    begin
      if a[j].town=b[i] then begin
        if a[j].pric>100000 then begin
        sum:=sum+a[j].pric;
        pos:=pos+1;
        end;
      end;
    end;
    if sum>100000 then
      writeln('В город ',b[i],' ушло ',pos, ' посылок на ',sum,' рублей');
  end;
  readln;

end.

Пока скидывал чужой код с кучей вопросов, почти все сам решил, вот что осталось
Нужно выполнить вывод информации о человеке по введенной фамилии, т.е. вывести город, улицу, дом и квартиру. (Понимаю как это будет выполняться, но не очень хорошо разобрался с самими записями, поэтому проблемка..)
Спасибо заранее.

[H4t]

Можно закрывать, задача совсем простой оказалась.