Дано 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.