Задан линейный массив .Преобразовать его элементы по следующему правилу : Четные положительные элементы заменить на 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.