Дано 50 домов, человек в одном доме от 50 до 100 определить номер дома в котором больше всего человек. через рандом, паскаль

Var nn:array[1 ... 50] of integer;

max, i, f: integer;

begin

max: = 0;

for i: = 1 to 50 do

begin

nn[i]: = random (51) + 50;

write (nn[i]:4) ;

if (nn[i] > max) then

begin

max: = nn[i];

f: = i;

end;

end;

writeln;

writeln (max,'больше всего человек в доме по нoмером ', f) ;

end.