Помогите, кто шарит в паскале, очень нужно

var i, n, sum_10, mini, sum_ch, max1, max2: integer;
pro_2: LongInt;
a: array [1..100] of integer;
begin
n:=25;
pro_2:=1;
sum_10:=0;
sum_ch:=0;
writeln ('Вектор А');
for i:=1 to n do
begin
a[i]:=random (20);{a[i]:=-9+random (19);}
write (a[i]:4);
if i=1 then mini:=a[i];
if a[i] > 2 then pro_2:=pro_2*a[i]; {или "-2", задание написано мутно, если есть "нуль"}
if i > n-10 then sum_10:=sum_10+a[i];
if a[i]<mini then mini:=a[i];
if not odd(i) then sum_ch:=sum_ch+a[i];
end;
writeln;
writeln ('a) произведение элементов больших 2 = ',pro_2);
writeln ('a) сумма последних 10 элементов ', sum_10);
writeln ('б) удалить минимальный элемент вектора ', mini);
for i:=1 to n do
if a[i] <> mini then write (a[i]:4);
writeln;
writeln ('в) среднеарифметическое значение элементов с четными индексами ', sum_ch/(n div 2):5:3);
for i:=1 to n do
begin
if i=1 then max1:=a[i];
if (a[i]> max1) and (i <= 10) then max1:=a[i];
if i=n-10 then max2:=a[i];
if (a[i]> max2) and (i >= n-10) then max2:=a[i];
end;
writeln ('г) поменять местами максимальные элементы из первых десяти и последних десяти элементов вектора');
writeln ('Вектор А');
for i:=1 to n do write (a[i]:4);
writeln;
writeln ('Вектор А1');
for i:=1 to n do
begin
if (i <= 10) and (a[i] = max1) then a[i]:=max2;
if (i >= n-10) and (a[i] = max2) then a[i]:=max1;
write (a[i]:4);
end;
end.

С чем помочь? Что непонятно? В чем затруднения? А то я тупо вижу скопированное задание

https://pastebin.com/tPBz0QMu