паскаль Заполнить массив случайными числами и найти элемент наиболее близкий по значению к максимальному элементу.

Const N = 100;Var m:array [1..N] of integer; i,max,o:integer;beginrandomize;o:=0;for i:=1 to N do beginm[i]:= random(1000);if m[i]>max then max:=m[i]; end;for i:=1 to N do beginwrite(m[i],' ');if (m[i]>o) and (m[i]<max) then o:=m[i]; end;writeln;writeln('--=',o,' =--');readln;end.