Дан массив состоящий из 30 элементов. Отыскать в массиве максимальный элемент,

var a: array[1..30] of single; max: single; i: integer; k: integer; begin for i:=1 to 30 do begin write(Введите элемент , i, =); readln (a[i]); end; max:= a[1]; k:= 1; for i:=1 to 30 do begin if max lt; a[i] then begin max:= a[i]; k:=i; end; if a[i] lt; 0 then a[i]:= -a[i]; end; writeln (Наибольшее значение =, max); writeln (номер элемента =, k); end. В переменной "max" храниться наибольшее значение, а в переменной "k"- номер элемента с наибольшим значением. Перед циклом за наибольший берется 1-й элемент и запоминается в этих переменных. В цикле сначала переменная "max" сравнивается с элементом массива и если она меньше текущего элемента, то в переменной "max" сохраняется новое значение, а в переменной "k" новый номер. Потом если элемент отрицательный, то он заменяется на одинаковый по модулю элемент.