В каждой части массива найти количество четных элементов и умножить на найденное значение - Pascal ABC

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

Разбить массив на две части. В каждой найти количество четных элементов и умножить на найденное значение последний элемент соответствующей части.

program zd1;
 
var
i, P,S, k, n: integer;
a: array[1..999] of integer;
 
begin
writeln('Введите количество элементов массива: ');
readln(n);
for i := 1 to n do 
begin
write('a[',i,']=');
readln(a[i]);
end;
 
writeln('Исходный массив');
for i := 1 to n do 
write(a[i],' ');
writeln; 
 
k := n div 2;
S:=0; 
for i := 1 to k do 
if a[i] mod 2 = 0 then 
begin
S := S + 1;
end;
 
for i:= 1 to k do
begin
a[k]:=a[k]*S;
end;

P:=0;
for i := k + 1 to n do 
if a[i] mod 2 = 0 then 
begin
P := P + 1;
end;
 
for i := k + 1 to n do 
begin
a[n]:=a[n]*P;
end;
 
writeln('Полученный массив:');
for i := 1 to n do 
write(a[i],' ');
 
end.

Решение задачи: «В каждой части массива найти количество четных элементов и умножить на найденное значение»

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

var i, P,S, k, n: integer;
    a: array[1..999] of integer;
begin
writeln('Введите количество элементов массива: ');
readln(n);
for i := 1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
writeln('Исходный массив');
for i := 1 to n do
write(a[i],' ');
writeln;
k := n div 2;
S:=0;
for i := 1 to k do
if a[i] mod 2 = 0 then
begin
S := S + 1;
end;
a[k]:=a[k]*S;
writeln('Количество четных в первой части массива=',S);
P:=0;
for i:=k+1 to n do
if a[i] mod 2 = 0 then P := P + 1;
a[n]:=a[n]*P;
writeln('Количество четных во второй части массива=',P);
writeln('Полученный массив:');
for i := 1 to n do
write(a[i],' ');
end.

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

Создаются переменные i, P, S, k и n, которые будут использоваться для работы с массивом.
Пользователю предлагается ввести количество элементов массива (переменная n).
В цикле for i := 1 до n происходит чтение элемента массива из терминала и его запись в переменную a[i].
Выводится исходный массив.
Вычисляется количество четных элементов в первой части массива (переменная k).
Инициализируется переменная S значением 0.
В цикле for i := 1 до k происходит проверка на четность элемента массива (если a[i] mod 2 = 0) и увеличение значения переменной S на 1.
Значение переменной S умножается на значение k и присваивается переменной a[k].
Вычисляется количество четных элементов во второй части массива (переменная P).
Инициализируется переменная P значением 0.
В цикле for i:=k+1 до n происходит проверка на четность элемента массива (если a[i] mod 2 = 0) и увеличение значения переменной P на 1.
Значение переменной P умножается на значение n и присваивается переменной a[n].
Выводится количество четных элементов в первой и второй частях массива.
Выводится полученный массив.