найти среди элементов целочисленного массива максимальный по модулю элемент. delphi pascal

x-массив.

max:=-1000000;
for i:=1 to n do
if abs(x)>max then max:=x;

max-и будет максимальным после выполнения цикла.