Carlos Silva Moreira

Olá pessoal !!! Preciso que vocês me auxiliem a desenvolver esse pequeno programa em pascal Um programa que auxilie na contagem de pontos e classificação dos finalistas nas provas de Ginatica Olimpica durante os Jogos Olimpicos. As finais de Ginastica funcionam assim: Os dez melhores atletas realizam um apresentação final que lhes poderá dar a medalha de ouro; Apos a apresentação de cada atleta 8 jurados dão notas entre 0 e 10; A pontuacao final de cada atleta é calculada descartando-se a sua pior e melhor nota, e em seguida somando-se as outras notas pontuaçoes; A ordem final dos atletas é a ordem decrescente de pontuacao, ou seja, aquele que tiver maior numero de pontos recebe a medalha de Ouro, o segundo de prata .... Desta forma o programa deverá ler os nomes dos atletas, a nota de cada um dos juizes para cada atleta e em seguida calcular a pontuacao dos atletas.Por fim apresenta a classificacao final apresentando para cada um seu nome e o total de pontos obtidos. Eu to tentando fazer esse programa, mas solicito ajuda de todos. Program Olimpiada; Type nomes = array[1..10] of string; notas = array[1..8] of real; Var nome : nomes; i,j : integer; nota : notas; soma : real; Begin For i:=1 to 10 do Begin Write('Informe o nome ',i,' atleta : ' ); ReadLn(Nome); End; Writeln; Writeln; Write('Informe qual atleta do vetor deseja visualizar : '); ReadLn(i); WriteLn('Atleta : ' ,Nome); Writeln; For j:= 1 to 8 do Begin Write ('Informe a nota do atleta ' ,Nome, ' : '); Readln (nota[j]); End; Begin Writeln; Soma:=0; For j:= 1 to 8 do Soma:= soma + nota[j]; Writeln ('A soma total das notas é : ',soma:2:2); Readkey; End; End.