Задан линейный массив .преобразовать его элементы по следующему правилу : четные положительные элементы заменить на 1 , а нечетные отрицательные на -1 .остальные оставить без изменения

Program asd;
Const n=10;
 var A:array[1..n]  of integer;
 i:integer;
BEGIN
Randomize;
 For i:=1 to n do  
 begin   
A[i]:=1+Random(10)-4; 
  Write(A[i],' ');
  end; 
 Writeln;
   For i:=1 to n do 
  begin 
   If (A[i] mod 2=0) and (A[i]>0)   then 
  begin   
 A[i]:=1; 
  Write(A[i],' '); 
 end 
 else 
   If (A[i] mod 3=0) and (A[i]<0)   then
   begin   
  A[i]:=-1;   
  Write(A[i],' ');
      end   
   else    
  Write(A[i],' '); 
       end;
   END.