Составить программу которая сформирует целочисленный массив из n элементов и увеличит все элементы массива на значение максимального элемента.
Требования : n - не более 10; способ заполнения массива - ввод значений с клавиатуры; наличие в массиве положительных и отрицательных элементов; вывод сопровождается: исходный массив, значение максимального элемента, печать массива после внесенных в него изменений, дружественный интерфейс

var a: array[1..999] of integer;var n, max: integer;begin    read(n);    for var i := 1 to n do begin        read(a[i]);    end;    for var i := 1 to n do begin        if a[i+1] > a[i] then        max := a[i+1];        write(a[i] + ' ');        if i = n then writeln;    end;    writeln(max);    for var i := 1 to n do begin      a[i] += max;          write(a[i] + ' ');   end;end.