Obrigada! Muito obrigada!
Eu o modifiquei e fiz assim:
algoritmo "Questão 5"
//Escrever um algoritmo que leia um vetor com 10 elementos inteiros e
//determine o maior e o menor elementos deste vetor, bem como suas
//posições. Estes valores devem ser escritos no algoritmo principal e
//devem ser passados/recebidos pela função
var
vet: vetor [1..10] de inteiro
contador,a,ma,me,posma,posme:inteiro
procedimento lernumero():inteiro
inicio
para a de 1 ate 10 faca
escreva("Escreva o ",a,"º número: ")
leia(vet[a])
fimpara
fimprocedimento
Procedimento comparar()
inicio
me<-vet[1]
ma<-vet[1]
posma<-1
posme<-1
para a de 2 ate 10 faca
se me > vet[a] então
me<- vet[a]
posme<-a
fimse
fimpara
para a de 2 ate 10 faca
se ma < vet[a] então
ma<- vet[a]
posma<-a
fimse
fimpara
escreval("O menor elemento do vetor é" , me, " e está na posição ",posme)
escreval("O maior elemento do vetor é" , ma, " e está na posição ",posma)
fimprocedimento
inicio
lernumero()
comparar()
fimalgoritmo