Дано n вещественных чисел. Найти величину наибольшего из них. Выполнить в Pascal

Var i,n: integer; max: real; a: array [1..100000] of real;begin//заполнение массива даннымиWrite (\'Введите количество вещественных чисел: \'); Readln (n);for i:=1 to n do a[i]:= random(100);//вывод массиваfor i:=1 to n do write (a[i], \' \');Writeln();//нахождение максимального числа в массивеmax:=0;for i:=1 to n do begin if a[i]>max then max:=a[i] end;Writeln (\'Максимальное число - \', max);end.