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

Fiz um algoritmo que pega um determinado valor de alunos, soma 3 notas e faz a media e ao final de cada aluno aparece a média {sem o comando Clrscr;} mas quando coloco o comando clrscr n aparece a média de cada aluno, somente do ultimo.

Preciso entender um jeito para limpar o aluno anterior após aparecer a média, se alguém puder me instruir fico grato fico grato :D

Segue o código:

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.