Preciso fazer um algoritmo que leia notas e as ordene em forma crescente já fiz alguma coisa mais ainda tem alguns erros de sintaxe, queria pedir ajuda para concluir:
Algoritmo "Obter natas e apresentar em ordem crescente usando funções"
Var
nNumero, I, N: INTEIRO
aNotas: VETOR[1…50] DE INTEIRO
FUNCAO FNotas(Recebe_aNotasI: INTEIRO):INTEIRO
Var
I, N, Y, nNumero: INTEIRO
aNotas: VETOR[1…50] DE INTEIRO
Total: INTEIRO
Inicio
Para I De 1 Ate nNumero Faca
Para N De 1 Ate nNumero-1 Faca
Se aNotas > aNotas+1 Entao
Y <- aNotas[N]
aNotas[N] <- aNotas[N+1]
aNotas[N+1] <- Y
Fimse
Fimpara
Fimpara
FNotas <- aNotas[I]
Retorne Total
Fimfuncao
Inicio
Escreva("Digite o número de notas que você deseja calcular: ")
Leia(nNumero)
Para I De 1 Ate nNumero Faca
Escreva(“Digite a”, I,"° nota: ")
Leia(aNotas[I])
Fimpara
Escreval("A ordem crescente dos números é: ")
Para I De 1 Ate N Faca
Escreval(FNotas)
Fimpara
Fimalgoritmo
Sou novo no Fórum e preciso de ajuda de vocês, muito obrigado!