Problema em algoritmo que lê uma matriz 5x3 e retorna o menor valor de

Esse algoritmo pede pra informar os nomes e as 3 notas de 5 alunos e mostrar qual é a menor nota de cada um. O problema tá na parte de ordenar os valores de cada linha da matriz.

Algoritmo "Menor nota"
Var
nomes: vetor[1..5] de caractere
notas: vetor[1..5, 1..3] de real
i, j, k: inteiro
menor, temp: real
Inicio

para i de 1 ate 5 faca
escreva("Digite o nome: ")
leia(nomes[i])
para j de 1 ate 3 faca
escreva("Digite a",j,"ª nota: ")
leia(notas[i, j])
fimpara
fimpara

//essa parte está com problema
para i de 1 ate 5 faca
para j de 1 ate 2 faca

 menor <- j;
 para k de j ate 3 faca
 se notas[i, k] < notas[i, menor] entao
 menor <- k;
 fimse
 senao
 fimpara
 se j <> menor entao
 temp <- notas[i, menor];
 notas[i, menor] <- notas[i, j];
 notas[i, j] <- temp;
 fimse
 fimpara
 fimpara

 para i de 1 ate 5 faca
 escreval("Aluno(a): ",nomes[i])
 para j de 1 ate 3 faca
 escreval(j,"ª nota: ",notas[i, j])
 fimpara
 fimpara

Fimalgoritmo