Дан массив случайных чисел из 20 вещественных элементов. Найти максимальный по модулю элемент массива. Помогите пожалуйста!!!! Мне нужна сама программа написанная! Помогитее!)))

var a:array[1..20] of real;var out:real;var i:integer;beginout:=0;for i:=1 to 20 dobegin  a[i]:=random();  if abs(out)<abs(a[i])     then out := a[i];end;write(out);end.