Сформировать массив из...

Сформировать массив из 10 случайных чисел от 2 до 8.1)все четные числа разделить на 2,все нечетные увеличить в 3 раза.
2)вывести на экран все числа,которые больше своего соседа слева
ребята,помогите пожалуйста,нужно очень срочно.хотя бы 1 часть)

 

Program z10;
var a,b: Array [1..10] of integer;
i:integer;
Begin
Randomize;
For i:=1 to 10 do
begin
a:=random(999);
end;
for i:=1 to 10 do
begin
if(a mod 2=0)then :=a div 2 else a:=a*3;
write(a,' ');
end;
2)
Program z10;
var a,b: Array [1..10] of integer;
i,r:integer;
Begin
Randomize;
For i:=1 to 10 do
begin
a:=random(999);
end;
r:=a[1];
for i:=2 to 10 do
begin
if(a>r)then write(a,' ');
r:=a;
end;
end.