Подсчитать количество совпадений

[Fobos1994]

Обьясню в кратце:
Нужно написать програму со структурой:
1)фамилия жениха
2)Фамилия невесты
3)Дата регистрации
4)Дата подачи заявки
5)Отметка(Да/Нет)
(это сделано)

Нужно выдать информацию:
-дата регистрации наиболие большого количесвта свадьб

Тобиш,нужно определить сколько свадьб происходит по определленной дате.
Я пришел к такому выводу,что нужно както из базы,взять и сравнить все даты,Те даты которые совпадают,подщитать,а потом уже определить какое количство самое большое..
но вот с реализацие не все получается..помогите

Unit poiskk;
interface
uses Crt;
type zavod=record
     Famz:string[25];
     famn:string[20];
     data_r:string[10];
     data_p:string[10];
     vidm:string[3];
 end;
 
var  f,f1:file of zavod;
     i,j,n,s:integer;
     z:zavod;
                   v:char;
                   st,dr:string;
     max,k:real;
     z_max:zavod;
procedure Poisk;
 
implementation
procedure Poisk;

......

а вот дальше...


ну насколько я понял,нужно будет брать первый элемент сравнивать с остальными,а совпадения подщитывать.Затем брать второй элемент и проводить ту же процедуру,а потом сравнить и опредеиить количестаа совпадений и опредлить самое болшое!но как это прописать в коде я незнаю...

[Serge_Bliznykov]

-дата регистрации наиболие большого количесвта свадьб

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

второй проход выдавать те даты, для которых количество равно максимальному значению.

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

я бы выбрал вариант решения с использованием сортировки!

[TinMan]

А я бы сделал дополнительный массив целых чисел по датам. Примерно так:

var
  Stat: array[1901..2100,1..12,1..31]of word;

Массив получится немаленький, но и не такой уж большой. Во взятом мной примере это 74400 элементов - это больше возможностей TP, но для современного компилятора (и для современных объемов памяти на компах) это просто ерунда .
Сначала его надо обнулить (на самом деле, если он глобальный, то это будет сделано автоматически, и делать повторно нет нужды, но если поиск будет проводится повторно, то надо обязательно это делать). А потом пройтись в цикле по всем записям и инкриминировать элемент с соответствующей датой. И наконец, просто найти максимум в этом массиве.

for Year:=1901 to CurrentYear do
  for Month:=1 to 12 do
    for Day:=1 to 31 do
      if Stat[Year,Month,Day]>Stat[MinYear,MinMonth,MinDay] then begin
        MinYear:= Year;
        MinMonth:= Month;
        MinDay:= Day
      end;

P.S.
Кстати, я бы переделал формат даты в записи на отдельные _числовые_ значения года, месяца и дня.