Инициализация массива и поиск среди элементов на чётных местах

Задача:

Сформируйте вектор, содержащий 15 элементов, с помощью датчика случайных чисел из интервала (-20,20) Получите новый массив, каждый элемент которого равен кубу соответствующего элемента исходного массива В полученном массиве найти максимальный элемент среди элементов с четными номерами. Выведите на экран исходные и полученные результаты

Код:


program max2;
type Mas = array[1..15] of integer;
var A,B: Mas;
    i, max: integer;
Begin
Randomize;
for i:= 1 to 15 do begin
A[i]:= Random(41)-20;
B[i]:= A[i] * sqr(A[i]);    {элемент массива А возводим в куб}
                  end;

Writeln('Массив А: ');
for i:= 1 to 15 do
Write(A[i],' ');
Writeln;
Writeln('Массив B: ');
for i:= 1 to 15 do
Write(B[i],' ');

max:= B[2];            {Присвоим максимум второму элементу}
for i:= 2 to 7 do         {будем искать среди 4,6,8,..14 элементов}
if B[2*i] > max then max:= B[2*i];   {поиск по элементам на четных местах}

Writeln;
Write('Максимальный элемент в массиве В: ', max);

Readln;
End.