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

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