Problema no Pascalzim com o comando Clear screen CLRSCR dentro de uma While.

Program Exercicio_9 ;
Var aluno: string;
    nota1, nota2, nota3, Valor, cont: integer;
    Media, Soma: Real;
 Begin
   Clrscr;
     Writeln(upcase('----------Programa média de alunos----------'));
       Writeln('digite o numero de alunos que deseja calcular a media');
       Read(Valor);
     Soma:=0;
     nota1:=0;
     nota2:=0;
     nota3:=0;
   While cont < valor do
     Begin
       clrscr;      
         inc(cont);
           Writeln('---------- Média de Alunos----------');
	      Writeln('Digite o nome do aluno ', cont, ': ');
	      Read(aluno);
	      Writeln('Digite a primeira nota: ');
	      Read(nota1);
	      Writeln('Digite a segunda nota: ');
	      Read(nota2);
	      Writeln('Digite a terceira nota: ');
	      Read(nota3);
	        Soma:= nota1+nota2+nota3;
	          Media:=soma/3;   
	      Writeln('A média do aluno', cont, ' é: ', Media :2:2);
		  	     
	end;
	 Repeat
    Until
  Keypressed;    	     
 End.