Помогите дописать код. Множества.

[Sararans]

Паскаль ABC
Какие циклы добавить, чтобы программа выводила еще сколько посылок ценой (value) выше 10 рублей было отправлено, а следующей строкой, кому отправлено больше 1 посылки. Т.е если в поле "кому адресована" (whom) будет "Иванов" при описании одной посылки, и также в следующей, а на выходе "Иванов получил 2 посылки". Последний шаг вообще возможно сделать?
Нужно чтобы в итоге было:
Количество посылок в город Москва:
Количество посылок больше 10 рублей:
"Иванов (к примеру)" получил "X(>1)" посылок.

const
  nmax = 10;
type
  Mail = record
    town : string;
    street : string;
    house : integer;
    flat : integer;
    Whom : string;
    value : integer;
  end;
  
var
  A : array [1..nmax] of Mail;
  B : array [1..nmax] of string;
  C : array [1..nmax] of string;
  i, n, m, j,sum, 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.

[СтудПом]

Ну для количества посылок больше 10 руб. нужен цикл аналогичный циклу "Москва".

Считать количество посылок для каждого получателя - проблема.
Правильно это делать через создание динамической структуры - списка получателей. На статических массивах делать такое неправильно.

Если очень надо, можно сделать так
-Цикл прохода по массиву
--Подцикл проверяющий наличие получателя в верхней части массива
---Если нет, тогда считаете подциклом появление получателей в нижней части массива