Дан массив А(10), заполненный датчиком случайных чисел. Найти наибольший элемент.Прошу помогите! 

const    n=10; var    a: array[1..n] of real;    s: real;    i: integer; begin    Randomize; // инициализация датчика случайных чисел    s:=-1000; // датчик выдает только неотрицательные значения    for i=1 to n do a[i]:=random(100);    for i:=1 to n do      if a[i]>s then a[i]:=s;    writeln('максимум =',s) end.