Alguem poderia testar pra mim?

Inicio

 Inteiro:maior_menor, soma_num, :vetor[1..10] de inteiro;
 I, maior, menor de inteiro, contador;
 Real: Calc_media;
 Maior<- 0;
 Menor<-10;
 Maior_menor[]<- {0,1,2,3,4,5,6,7,8,9};
 Para i de 1 ate 10 passo 1 faça
 Inicio_para
 Se maior_menor[i]>maior então
 maior<- maior_menor[i];
 Se maior_menor[i]<maior então
 maior<- maior_menor[i];
 Fim _para
 Mostre" O maior valor:"+maior;
 Mostre" O menor valor:"+menor;

 Soma_num<-0
 Contador<-0
 Para i de 1 ate 10 passo 1 faça
 Inicio_para
 Mostrar"Digite a"+ (i) +".numero:";
 Ler (numero[i]);
 soma_num<-soma_num+numero[i};
 fim_para
 calc_media<soma_num/10;
 para i de 1 ate 10 faça
 inicio_para
 Se (numero[i]>=calc_media)entao
 Contador<-contador+1;
 Fim_para
 Mostrar"a media é " + calc_media;

Fim
a questão é? <>>>>Escreva um algoritmo que leia 10 números informados pelo usuário e, depois, informe o menor, número, o maior número, a soma dos números informados e a média aritmética dos números informados.

Fiz assim e gostaria que alguem testa-se e me dissesse se esta certo? agradeço!

Djavan