Ajuda com exercicio de Pascal

[Tsubaza]

Ler um vetor que contenha as notas de uma turma de 10 alunos. Calcular a média da turma e contar quantos alunos obtiveram nota acima desta média calculada. Escrever a média da turma e o resultado da contagem.

Até o momento conseguir fazer até a parte abaixo mas nao consigo de forma alguma fazer o programa funcionar de forma correta..Vejam no que podem me ajudar..

Program notas;
var
	i,cont:integer;
	M,soma:real;
	C: array [1..10] of real;
 Begin
 	i:=0;
  	writeln;
 	for i:=1 to 10 do
 		write('digite a nota do aluno');
 		readln (C[i]);                                 <<<<< aqui fica a tal posição 11 >>>> 	
 	soma:=0;
 	for i:=1 to 10 do
 		soma:=soma+C[i];
 		M:=soma/10
 	;
 	cont:=0;
 	for i:=1 to 10 do
 		if (C[i]>M) then
 			begin
 				cont:=cont+1;
 				cont:=cont+1;
 		     end
 	;		
 	writeln('A media da turma é: ',M, 'e' , cont, 'alunos ficaram acima da media');


end.

O erro que aparece é " A posição 11 está fora dos limites do vetor "

Se possivel favor ajudar nesse problema pois ja tentei de diversar formas e nao consegui exito..

[Mog.Lucas]

Você está esquecendo de utilizar begin e end para separar os bloco de programação de forma correta.

Utilize o begin depois do do do for e utilize end; no final do bloco dele.

[Tsubaza]

valeu pela ajuda amigo..

Problema resolvido

[gandalfnho]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.