Дан массив состоящий из 30 элементов. Найти в массиве максимальный элемент, вывести его значение и номер на экран. Отрицательный элемент массива заменить на равные по модулю положительные элементы.

Большое Спасибо!

program massiv;var i,max,n,j: integer;a: array[1..30] of integer;beginwriteln ('Введите элемент массива');for i:=1 to 30 dobeginwrite ('a[',i,']-');readln (a[i]);end;n:=1;max:=a[i];for i:=2 to 30 doif max<a[i] thenbeginmax:=a[i];n:=i;end;for i:=1 to 30 doif a[i]<0 then a[i]:=-a[i];writeln ('Наибольший элемент в массиве ', max);writeln ('Номер массива ', n);writeln ('Получившийся массив');for i:=1 to 30 dowrite (a[i],' ');end.