Опишите, используя структуру записи, почтовую сортировку

const N=10;
    var Pt:array[1..10] of record
     gor:string;
      yl:string;
      dom:integer;
      kv:integer;
      kom:string;
      cen:string;
      i:integer;
      end;
begin
  For i:=1 to n do
  readln(Pt[i].gor);
  readln(Pt[i].yl) ;
  readln(Pt[i].dom) ;
  readln(Pt[i].kv) ;
  readln(Pt[i].kom) ;
  readln(Pt[i].cen) ;
 
end.
Begin vlad:=0;
  for i:=1 to n do
  begin
    vlad:=vlad+Pt[i].gor);
    end.
    writeln vlad;
    readln;

const
  nmax = 10;
 
type
  Mail = record
    town : string;
    street : string;
    house : integer;
    flat : integer;
    Whom : string;
    value : string;
  end;
  
var
  A : array [1..nmax] of Mail;
  i, n, count : integer;
  
begin
Repeat
Write('Количество посылок (не более ', nmax, '): ');
Readln(n);
Until n in [1..nmax];
for i := 1 to n do
  with A[i] do
  begin
    Writeln('Информация о ', i, ' посылке: ');
    Write('Введите город: '); Readln(town);
    Write('Введите улицу: '); Readln(street);
    Write('Введите дом: '); Readln(house);
    Write('Введите квартиру: '); Readln(flat);
    Write('Введите кому адресована: '); Readln(whom);
    Write('Ценность: '); Readln(value);  
  end;
count := 0;
for i := 1 to n do
  if A[i].town = 'Владивосток' then inc(count);
Writeln('Количество посылок отправленных в город Владивосток: ', count);
Readln;  
end.