Вцелочисленном массиве из 31 элемента записаны значения температуры по дням в мае месяце ( возможные значения температуры от 0 до 25 ). найти значение температуры в самый теплый день

Var a:array [1..31] of integer;
i,m:integer;
begin
for i:= 1 to 31 do a[i]:= Random(26);
writeln(a);
for i:=1 to 31 do if a[i]>m then m:=a[i];
write('Самая высокая температура - ',m,' наблюдалась:');
for i:=1 to 31 do if a[i]=m then write(i:3);
write(' мая')
end.

Avascript:var дни=[];for(var сч=0;сч<31;сч++)дни.push(Math.round(Math.random()*25));alert(дни.indexOf(Math.max.apply(null, дни)));