Нужна помощь! Информатика, паскаль

Как из этого:
const
N = 10;

var

i, k: integer;
A: array [1..N] of integer;

begin
Randomize;
writeln('Исходный массив:');
for i := 1 to N do
begin
A[i] := random(10);
write(A[i],' ');
end;
writeln;
k := 0;
for i := 1 to N do
if A[i] mod 2<>0 then k:=k+1;
writeln('Кол-во четны
х эл-ов: ', k);
end.
Сделат так что бы четные элементы массива увеличивалиьс в 4 раза, а положительные уменьшались в 6 раз.
Массив генерируется случайным образом в промежутке от -15 до 23, минимальное кол-во элементов в массиве -10
Помогите пожалуйста.
Делаю на телефоне через паскаль