Flavio Coelho

Ola, queria a ajuda de alguem. Estou chegando agora no Forum. Estou tentando criar esse programa basico, mas estou com problema no looping ele executa o codigo na primeira vez correto, mas na 2º o "FOR" redireciona o texto direto para "Digite a nota 1", ao inves de começar pelo nome do aluno. Outra duvida como faria para que o programa verifica-se a cada nota digitada se é não é invalida (<0 ou >10) Grato. obs.: tentando programar pelo XCODE. program media_notas; var NOME: string; N1, N2, N3, MEDIA: real; CONT:integer; begin FOR CONT:=1 to 10 do begin writeln('Digite o nome do aluno:',cont,''); read (NOME); writeln('Digite a nota 1:'); read (N1); writeln('Digite a nota do Spa:'); read (N2); writeln('Digite a nota 2:'); read (N3); if (N1>=0) and (N2>=0) and (N3>=0) and (N1<=10) and (N2<=10) and (N3<=10) then begin MEDIA :=(N1*2+N2*4+N3*4)/10; writeln('O aluno de nome ',NOME,' tem a media ',MEDIA:0:2,' em suas notas.'); end else begin writeln('Nao sao aceita notas negativas ou maiores que 10.'); end; end; end.