Дан массив А(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.