Resende inacio

e como ficaria esse codigo melhorado?

Bom dia, alguém poderia me ajudar a fazer um ranking do tipo mostra o primeiro lugar segundo lugar, em ordem crescente,tentei fazer mas não estou conseguindo var acertos,erros:vetor[1..3] de inteiro //Variaveis para armazenar o acerto e erros separados para cada pessoa em vetor nome:vetor[1..3] de caractere // variavel para armazenar o nome de cada pessoa separado q fizer a prova em vetor i:inteiro // contador res:caractere // variavel para ler a resposta de cada questão percentualacertos1:real percentualacertos2:real // variveis para calcular o percentual de acertos das questões percentualacertos3:real inicio // Seção de Comandos para i de 1 ate 3 passo 1 faca // laco de repetição para fazer a prova ate 3 vezes com diferentes pessoas escreval escreval(" ","[",i," ]","° Prova ") escreval escreval("==================================================================================") escreval(" PROVA DE CONHECIMENTO GERAIS! ") escreval("==================================================================================") escreval escreva("Nome: ") leia(nome[i]) escreval escreval escreval("==================================================================================") escreval(" 1° Questão ") escreval("==================================================================================") // inicio da prova com as questões escreval escreval("1- Quem foi a primeira pessoa a viajar no Espaço? ") escreval("A) Yuri Gagarin") escreval("B) A cadela Laika") escreval("C) Neil Armstrong") escreval("D) Buzz Aldrin ") escreval escreval("Resposta: ") leia(res) // ler as respostas enquanto (res <> "a") e (res <> "b") e (res <> "c") e (res <> "d") faca // não deixa o usuario digitar as alternativas que não sejam A,B,C,D escreval("Opção Invalida! Digite outra resposta") leia(res) fimenquanto se(res="a") então // comando se vai comparar se a resposta foi correta ou não e vai contabilizar os acertos e erros acertos[i]:=acertos[i] + 1 senao erros[i]:=erros[i] + 1 fimse limpatela escreval escreval("==================================================================================") escreval(" 2° Questão ") escreval("==================================================================================") //prova com as questões escreval escreval("1- Qual a montanha mais alta do mundo? ") escreval("A) Monte Chimborazo") escreval("B) Monte Everest") escreval("C) Pico da Neblina") escreval("D) Monte Chimborazo") escreval escreval("Resposta: ") leia(res) // ler as respostas enquanto (res <> "a") e (res <> "b") e (res <> "c") e (res <> "d") faca // não deixa o usuario digitar as alternativas que não sejam A,B,C,D escreval("Opção Invalida! Digite outra resposta") leia(res) fimenquanto se(res="b") então // comando se vai comparar se a resposta foi correta ou não e vai contabilizar os acertos e erros acertos[i]:=acertos[i] + 1 senao erros[i]:=erros[i] + 1 fimse limpatela escreval escreval("==================================================================================") escreval(" 3° Questão ") escreval("==================================================================================") //prova com as questões escreval escreval("1- Onde se localiza Machu Picchu? ") escreval("A) Colômbia") escreval("B) Peru ") escreval("C) Bolívia") escreval("D) Argentina") escreval escreval("Resposta: ") leia(res) // ler as respostas enquanto (res <> "a") e (res <> "b") e (res <> "c") e (res <> "d") faca // não deixa o usuario digitar as alternativas que não sejam A,B,C,D escreval("Opção Invalida! Digite outra resposta") leia(res) fimenquanto se(res="b") então // comando se vai comparar se a resposta foi correta ou não e vai contabilizar os acertos e erros acertos[i]:=acertos[i] + 1 senao erros[i]:=erros[i] + 1 fimse limpatela escreval escreval("==================================================================================") escreval(" 4° Questão ") escreval("==================================================================================") //prova com as questões escreval escreval("1- Quanto tempo a Terra demora para dar uma volta completa em torno dela mesma ") escreval("A) 30 dias ") escreval("B) 365 dias ") escreval("C) 24 horas ") escreval("D) 7 dias") escreval escreval("Resposta: ") leia(res) // ler as respostas enquanto (res <> "a") e (res <> "b") e (res <> "c") e (res <> "d") faca // não deixa o usuario digitar as alternativas que não sejam A,B,C,D escreval("Opção Invalida! Digite outra resposta") leia(res) fimenquanto se(res="c") então // comando se vai comparar se a resposta foi correta ou não e vai contabilizar os acertos e erros acertos[i]:=acertos[i] + 1 senao erros[i]:=erros[i] + 1 fimse limpatela escreval escreval("==================================================================================") escreval(" 5° Questão ") escreval("==================================================================================") //prova com as questões escreval escreval("1- Qual a Temperatura de ebulição da água? ") escreval("A) 150° C") escreval("B) 90° C") escreval("C) 200° C ") escreval("D) 100° C ") escreval escreval("Resposta: ") leia(res) // ler as respostas enquanto (res <> "a") e (res <> "b") e (res <> "c") e (res <> "d") faca // não deixa o usuario digitar as alternativas que não sejam A,B,C,D escreval("Opção Invalida! Digite outra resposta") leia(res) fimenquanto se(res="d") então // comando se vai comparar se a resposta foi correta ou não e vai contabilizar os acertos e erros acertos[i]:=acertos[i] + 1 senao erros[i]:=erros[i] + 1 fimse limpatela escreval escreval("==================================================================================") escreval(" 6° Questão ") escreval("==================================================================================") //prova com as questões escreval escreval("1- Qual o maior planeta do sistema solar? ") escreval("A) Terra ") escreval("B) Saturno ") escreval("C) Júpiter") escreval("D) Lua") escreval escreval("Resposta: ") leia(res) // ler as respostas enquanto (res <> "a") e (res <> "b") e (res <> "c") e (res <> "d") faca // não deixa o usuario digitar as alternativas que não sejam A,B,C,D escreval("Opção Invalida! Digite outra resposta") leia(res) fimenquanto se(res="c") então // comando se vai comparar se a resposta foi correta ou não e vai contabilizar os acertos e erros acertos[i]:=acertos[i] + 1 senao erros[i]:=erros[i] + 1 fimse limpatela escreval escreval("==================================================================================") escreval(" 7° Questão ") escreval("==================================================================================") //prova com as questões escreval escreval("1- Qual o monumento famoso pela sua inclinação? ") escreval("A) Torre Eiffel") escreval("B) Torre de Pisa ") escreval("C) Estatua da Liberdade ") escreval("D) Esfinge") escreval escreval("Resposta: ") leia(res) // ler as respostas enquanto (res <> "a") e (res <> "b") e (res <> "c") e (res <> "d") faca // não deixa o usuario digitar as alternativas que não sejam A,B,C,D escreval("Opção Invalida! Digite outra resposta") leia(res) fimenquanto se(res="b") então // comando se vai comparar se a resposta foi correta ou não e vai contabilizar os acertos e erros acertos[i]:=acertos[i] + 1 senao erros[i]:=erros[i] + 1 fimse limpatela escreval escreval("==================================================================================") escreval(" 8° Questão ") escreval("==================================================================================") //prova com as questões escreval escreval("1- Qual a especialidade do otorrinolaringologista? ") escreval("A) Tratamento das doenças da pele") escreval("B) Tratamento das doenças dos olhos") escreval("C) Tratamento de estomago") escreval("D) Tratamento das doenças relacionadas a nariz, ouvido e garganta") escreval escreval("Resposta: ") leia(res) // ler as respostas enquanto (res <> "a") e (res <> "b") e (res <> "c") e (res <> "d") faca // não deixa o usuario digitar as alternativas que não sejam A,B,C,D escreval("Opção Invalida! Digite outra resposta") leia(res) fimenquanto se(res="d") então // comando se vai comparar se a resposta foi correta ou não e vai contabilizar os acertos e erros acertos[i]:=acertos[i] + 1 senao erros[i]:=erros[i] + 1 fimse limpatela escreval escreval("==================================================================================") escreval(" 9° Questão ") escreval("==================================================================================") //prova com as questões escreval escreval("1- Que grande evento histórico aconteceu em 1822 no Brasil? ") escreval("A) Independencia do Brasil") escreval("B) Descobrimento do Brasil") escreval("C) Ditadura Militar") escreval("D) Construção de Brasilia") escreval escreval("Resposta: ") leia(res) // ler as respostas enquanto (res <> "a") e (res <> "b") e (res <> "c") e (res <> "d") faca // não deixa o usuario digitar as alternativas que não sejam A,B,C,D escreval("Opção Invalida! Digite outra resposta") leia(res) fimenquanto se(res="a") então // comando se vai comparar se a resposta foi correta ou não e vai contabilizar os acertos e erros acertos[i]:=acertos[i] + 1 senao erros[i]:=erros[i] + 1 fimse limpatela escreval escreval("==================================================================================") escreval(" 10° Questão ") escreval("==================================================================================") //prova com as questões escreval escreval("1- Qual a primeira mulher a ganhar um prêmio Nobel? ") escreval("A) Madre Teresa de Calcutá") escreval("B) Elizabeth Blackweel ") escreval("C) Valentina Tereshkova") escreval("D) Marie Curie") escreval escreval("Resposta: ") leia(res) // ler as respostas enquanto (res <> "a") e (res <> "b") e (res <> "c") e (res <> "d") faca // não deixa o usuario digitar as alternativas que não sejam A,B,C,D escreval("Opção Invalida! Digite outra resposta") leia(res) fimenquanto se(res="d") então // comando se vai comparar se a resposta foi correta ou não e vai contabilizar os acertos e erros acertos[i]:=acertos[i] + 1 senao erros[i]:=erros[i] + 1 fimse limpatela fimpara percentualacertos1:=(acertos[1]/10)*100 percentualacertos2:=(acertos[2]/10)*100 //atribuição para o calculo de percentual de acertos percentualacertos3:=(acertos[3]/10)*100 escreval escreval("====================================================================================") escreval(" RESULTADO DAS PROVAS! ") escreval("====================================================================================") escreval escreval("Resultado prova 1! Nome: ",nome[1]," Acertos: ",acertos[1]," Percentual de: ",percentualacertos1:6:2,"% Erros: ",erros[1]) escreval("Resultado prova 2! Nome: ",nome[2]," Acertos: ",acertos[2]," Percentual de: ",percentualacertos2:6:2,"% Erros: ",erros[2]) // saida com o resultado da prova com o nome, acertos, percentual de acertos e erros escreval("Resultado prova 3! Nome: ",nome[3]," Acertos: ",acertos[3]," Percentual de: ",percentualacertos3:6:2,"% Erros: ",erros[3]) fimalgoritmo