Прошу помочь с задачами на паскале!

Задача 1

pascal
program SumOfEvenElements;

const
N = 20;

var
arr: array[1..N] of integer;
i, sum: integer;

begin
sum := 0;

Randomize;

for i := 1 to N do
begin
arr[i] := Random(101) + 100; // Генерация случайных чисел от 100 до 200
if arr[i] mod 2 = 0 then
sum := sum + arr[i];
end;

writeln('Массив:');
for i := 1 to N do
write(arr[i], ' ');

writeln;
writeln('Сумма четных элементов массива:', sum);
end.

Задача 2

pascal
program MaxElementInArray;

var
A: array[1..15] of integer;
i, maxElement, maxIndex: integer;

begin
Randomize;

// Заполнение массива случайными числами от -15 до 30
for i := 1 to 15 do
begin
A[i] := Random(46) - 15; // Генерация чисел от -15 до 30
writeln('A[', i, '] = ', A[i]);
end;

// Нахождение самого большого элемента и его индекса
maxElement := A[1];
maxIndex := 1;
for i := 2 to 15 do
begin
if A[i] > maxElement then
begin
maxElement := A[i];
maxIndex := i;
end;
end;

writeln('Самый большой элемент массива: ', maxElement);
writeln('Индекс самого большого элемента: ', maxIndex);

end.

Асу паскаль...