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

Формулировка задачи:

Опишите, используя структуру записи, почтовую сортировку(город ,улица, дом, квартира, кому, ценность).Составьте программу, определяющую сколько посылок отправлено в город Владивосток Моя наработка.

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.

Объяснение кода листинга программы

Объявлены константы: nmax = 10 - максимальное количество посылок, Whom = Кому адресована
Объявлен тип записи: Mail = record - описание посылки
Объявлен массив: A : array [1..nmax] of Mail; - для хранения информации о посылках
Объявлены переменные: i, n, count : integer; - для контроля количества посылок и адресованных в Владивосток
Запросом на ввод количества посылок (не более 10) и считыванием этого количества в переменную n начинается цикл
В цикле для каждой посылки выводится информация о посылке и запрашивается ввод соответствующих данных
После ввода всех данных подсчитывается количество посылок, адресованных в Владивосток, и выводится на экран
Цикл завершается после ввода всех данных и нажатия Enter
Программа завершается, ожидая дополнительного ввода (нажатия Enter)