[Resolvido] Função para pegar maior número de vetor

Bom pessoal, estou com uma dúvida.

Não estou conseguindo fazer uma função calcular o maior número de um vetor de 10 elementos e exibir, ele sempre pega o ultimo número e exibe. Se alguém puder ajudar nessa dúvida eu agradeço.

algoritmo "Maior_Vetor"

var

vet : vetor[1..10] de inteiro
num,numero,i,maior :inteiro
funcao fnumero(num2:inteiro):inteiro
var
maior1:inteiro
inicio

se (num2 > maior1) entao
maior1 := num2

fimse

retorne maior1
fimfuncao

inicio

para i := 1 ate 10 faca
escreva ("Digite o número: ")
leia (vet[i])
numero := fnumero(num)
fimpara

escreva ("O maior número do vetor é ",numero)

fimalgoritmo

Estou usado o visualg, o exercicio diz para criar uma função, senão eu já tinha feito com um procedimento.