Написать программу. выбирающую случайным образом 1000 числ. Найти среди них первый максимальный элемент

Program nums;

var num:array[1 ... 1000] of integer;

var i, maxnum: integer;

begin

Randomize;

for i:=1 to 1000 do num[i] : = random (1000000) ;

for i:=1 to 1000 do

begin

if num[i] > maxnum then maxnum:=num[i];

end;

Writeln ('самое большое число ', maxnum) ;

end.