Lê a media e diz se o aluno foi aprovado, reprovado ou está em recuperação

Program Pzim ;
{Dado Nome e notas ( total de 6 ) alunos, faça um algoritmo que:
a) Imprima Nome e média dos alunos aprovados com  Média > = 7.0.
b) Imprima Nome e média dos alunos em recuperação com 5.0 >= Média <7.0.
c) Imprima Nome e média dos alunos reprovados com Média <5.0

eu nao sei como faser para aparecer todos os nomes , por exemplo dos (aprovados).}
var
nome:array[1..6] of string;           {vetor onde vai ser armazenado os nomes}
nota:array[1..6] of real;             {vetor onde vai ser armazenado as notas}
i:integer;
 Begin
     for i:=1 to 6 do                 {for para entrada dos nados}
        begin
             write('Digite o nome : ');        
             readln(nome[i]);               {recebe os nomes e armazena no vetor nome na posição i de 1 até 6}
             write('Digite a nota : ');     {recebe as notas e armazena no vetor nota na posição i de 1 até 6}
             read(nota[i]);
             clrscr;                        //limpa a tela a cada vez que é digitado um nome e nota
         end;
    clrscr;                           //limpa a tela
   
    writeln('Alunos APROVADOS : ');        //exibe a mensagem     fora do for para aparecer somente uma vez
    for i:=1 to 6 do                         // faz de 1 até o 6
        begin
             if (nota[i]>=7) then
                 begin
                     writeln('Nome : ',nome[i],' - com nota : ',nota[i]:1:2);
                 end
        end;   
        writeln;                       //insere uma linha em branco, para organizar
    writeln('Alunos em RECUPERAÇÃO');     //exibe a mensagem
   
    for i:=1 to 6 do
        begin
            if ((nota[i]>=5) and (nota[i]<7)) then
                begin
                    writeln('Nome : ',nome[i],' - com nota : ',nota[i]:1:2);
                end
        end;
       
        writeln;                       //insere uma linha em branco, para organizar
        writeln('Alunos REPROVADOS');    //exibe a mensagem

    for i:=1 to 6 do
        begin
            if (nota[i]<5) then
                begin
                    writeln('Nome ',nome[i],' - com nota : ',nota[i]:1:2);
                end;
        end;
                     {é preciso fazer um for para cada opção de nota}
 
 End.