Программа про семьи

[Vitalya_1993]

В доме проживают 70 семей. найдите номер квартиры, в которой проживает самая многочисленная семья. помогите сделать!!!

[Mad_Cat]

max:=1;
for i:=2 to 70 do
if  Dom[i]>Dom[max] then max:=i;

[Vitalya_1993]

в коде нужно прописать количество членов семьи, соответственно для всех 70 в коде нужно прописать количество членов семьи, как это примерно выглядит?

[cyber_NINJA]

for i:=1 to 70 do
Dom[i]:=Random(10 {например} );

[Vitalya_1993]

Mad_Cat,можете ли вы , если это вас не затруднит, написать программу полностью. Я запутался че куда и где нужно делать!заранее благодарю!!!