Funções

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 notas e apresentar em ordem crescente usando funções"
Var

aNotas: VETOR[1..50] DE INTEIRO
I, N, Y, nNumero: INTEIRO
aNotasOrdenadas: VETOR[1..50] DE INTEIRO
FUNCAO Fnotas(Recebe_Y: INTEIRO):INTEIRO
Total: INTEIRO

Inicio

aNotas[I] -> aNotas[I]
Retorne Total

Fimfuncao

Inicio

Escreva("Digite o número de notas que você deseja ordenar: ")
Leia(nNumero)

Para I De 1 Ate nNumero Faca
Escreva("Digite a", I,"° nota: ")
Leia(aNotas[I])
Fimpara

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

Escreval("A ordem crescente dos números é: ")
Para I De 1 Ate N Faca
Escreval(anotas[I])
Fimpara

Fimalgoritmo