В массиве А(N) найти max элемента ???помогите решить!

Вам нужно найти максимальный элемент в заданном массиве? Program maximum; const N=30; Var i,max:Integer; A:Array[1..N] of Integer; begin for i:=1 to N do readln(A[ i ]); max:=A[1]; for i:=2 to N do if A[ i ] > max then max:=A[ i ]; writeln(max) end. Если нужно найти индекс максимального элемента, то программа будет выглядеть так: const N=30; Var i,max:Integer; A:Array[1..N] of Integer; begin for i:=1 to N do readln(A[ i ] ); max:=1; for i:=2 to N do if A[ i ] > max then max:=i; writeln(max) end.