Записи (Pascal)

[ALLELE]

Помогите!!! задание было составить программу которая создает файл данных и обрабатывает его таким образом:
В файле записано название улицы, номер дома, количество квартир. Вывести название улицы которая имеет больше всего домов и общее количество квартир.
Собственно проблема не могу вывести название улицы которая имеет больше всего домов, почему-то виводеться первое введеное, и сощитать количество квартир, выводится значеняя только данного дома.

[Манжосов Денис :)]

type
  adress = record
    Street = record
     HouseNumber: integer;
     FlatCount: integer;
     _Street: string;
  end;
var
  a: array[1..20] of adress;
{Код...}
g := 1;
for i:=1 to High(a) do
 if a[i].Street.HouseNumber > g then g := a[i];
WriteLn('Самое большое кол-во домов', g);

Если правильно понял условие задачи я.
Это примерный код. Дальше можешь сам доработать

[ALLELE]

Не совсем то но всьо равно очень помогло. Помогите с другим куском. Как сощитать количество квартир для кождой из улиц. Иначе говоря как узнать не повторяється ли назва улицы чтобы додавать квартиры с одинаковым названиям улиц?

[ALLELE]

ну народ хоть ктото....