Массивы, нужно написать 4 задачи - Pascal ABC

Формулировка задачи:

Нужна срочная помощь в написании данных программ на Pascal ABC. Спасибо! 1.Вывести на экран массив из n случайных положительных и отрицательных чисел, n вводится с клавиатуры. Сформировать и вывести на экран второй массив, каждый элемент которого получается сложением элемента первого массива на его максимальное значение. 2.Вывести на экран массив из 10 случайных положительных и отрицательных чисел. Сформировать и вывести на экран второй массив, состоящий из четных элементов первого массива, нечетные заменяются на 1. 3.Вывести на экран массив из n случайных положительных и отрицательных чисел, n вводится с клавиатуры. Найти разницу между максимальным и минимальным элементами массива. 4.Значения элементов массива a из 10 целых чисел вводятся с клавиатуры. Создать второй массив, состоящий из НОМЕРОВ отрицательных элементов массива a.

Решение задачи: «Массивы, нужно написать 4 задачи»

Листинг программы

var a:array[-100..100] of integer; 
b:array[-100..100] of integer;
i,n,max :integer; 
begin 
  writeln('Введите количество элементов массива');
     readln(n);
       writeln('Введите сами элементы');
     for i:=1 to n do
  begin
write('A[',i,']=');
    readln(a[i]);
          end;
for i:=1 to n do 
write(a[ i ]:4); 
writeln;
max:=a[1];
for i:=2 to n do
if a[i]>max then max:=a[i];
writeln('max=',max); 
writeln; 
writeln('Второй массив, элементы первого + максимальное значение: '); 
for i:=1 to n do 
begin
b[ i ]:= a[i] + max; 
write(b[i]:4);
end; 
writeln;
readln; 
end.

Объяснение кода листинга программы

Создается двумерный массив a размером от -100 до 100 включительно.
Создается переменная b, которая будет копировать массив a.
Определяются три переменные: i, n и max. Переменная i будет использоваться для итерации по элементам массива, переменная n - для чтения количества элементов массива, а переменная max - для хранения максимального значения из массива.
Выводится сообщение с просьбой ввести количество элементов массива.
Читается количество элементов массива.
Выводится сообщение с просьбой ввести сами элементы массива.
Для каждого элемента массива (от 1 до n) выполняется следующая последовательность действий:
- Выводится сообщение с просьбой ввести элемент массива A[i].
- Читается элемент массива a[i].
- Если элемент массива a[i] больше текущего максимального значения, то обновляется значение переменной max.
Выводится сообщение с просьбой ввести максимальное значение массива.
Выводится сообщение с просьбой ввести второй массив, элементы которого - сумма элементов первого массива и его максимального значения.
Для каждого элемента второго массива (от 1 до n) выполняется следующая последовательность действий:
- Выводится сообщение с просьбой ввести элемент второго массива b[i].
- Записывается в элемент второго массива значение суммы элементов первого массива и максимального значения.
Выводится сообщение с просьбой ввести второй массив, элементы которого - сумма элементов первого массива и его максимального значения.
Программа завершается.