Помогите с массивами
В массиве 20 случайных чисел. Найдите и выведите на экран максимальное из них.

VarA: array[1..20] of integer;i,max:integer;BeginRandomize();for i:=1 to 20 do A[i]:=random(100);max:=A[20];for i:=1 to 20 doif (A[i]>max) then max:=A[i]; writeln(max);end.