Ajuda em Pascal

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.