Ajuda com algoritmo visualg

[scooter]

Eu preciso de um programa que recebe 2 nomes de aluno, 4 notas por aluno, e calcule a media

por enquanto eu fiz o algoritmo porem apresenta erro na calcaular a media, no algoritmo criei dois vetores para o nome e para media, e uma matriz para receber a notas

var
  nm:vetor[1..2] de caractere
  md:vetor[1..2] de real
  nt:vetor[1..2,1..4] de real
  i,j:inteiro
inicio
  PARA i DE 1 ATE 2 FACA
    Escreval("Digite o nome do ",i,"º aluno")
    leia(nm[i])
    PARA j DE 1 ATE 4 FACA
      Escreval("Digite a ",j,"ª nota")
      leia(nt[i])
    fimpara
  fimpara
  PARA i DE 1 ATE 2 FACA
    PARA j DE 1 ATE 4 FACA
      md[i]<-md[i]+nt[i]
    fimpara
  fimpara

no caso ele esta somando todas as 8 notas de cada aluno e jogando o valor total da soma nos 2 campos do vetor da media da nota

Se alguém puder me ajudar desde já agradeço

[raphael_suporte]

PARA i DE 1 ATE 2 FACA
    PARA j DE 1 ATE 4 FACA
           md[i]<-md[i]+nt[i]
    fimpara
           md[i]<-(md[i]/4) 'Tenta dividir o valor total por 4( já que são 4 notas), assim a média será diferente
fimpara