Alguém sabe resolver o q está dando errado nesse programa (VISUALG)

Bem, o problema e o programa se tratam dessa pergunta:

** Leia um vetor A com 6 elementos do tipo real. Construir um vetor B, em que cada posição de índice ímpar do vetor B deve ser atribuída com um elemento de índice par existente no vetor A e cada posição de índice par do vetor B deve ser atribuída com um elemento de índice ímpar existente no vetor A. Apresentar os elementos dos dois vetores.
**

Sempre da erro, e já n sei o q fazer… se alguém souber ajuda!!!

Programa

Algoritmo “TrocaParImpar”
//

Var

n: inteiro
i: inteiro
a: vetor[1…7] de real
b: vetor[1…7] de inteiro
res: real
Inicio

  para i de 1 ate 6 faca
  escreval ("informe um valor A[",i,"] : ")
  leia (a[i])
  fimpara
  para i de 1 ate 6 faca
  se (b[i] mod 2 <> 0) entao
  b[i] <- a[i] mod 2 = 0
  escreval ("B[i] = ", b[i])
  fimse
  fimpara
  para i de 1 ate 6 faca
  se (b[i]) mod (2 = 0) entao
  res<- (a[i]) mod (2 <> 0)
  escreval ("B[i] = ", res)
  fimse
  fimpara
  para n de 1 ate 6 faca
  escreval (a[i])
  fimpara

Fimalgoritmo