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