3 notas com media ponderada

Program Pzim ;
{4- Escreva um programa que leia o código de um aluno e suas três notas.
Calcule a média ponderada do aluno, considerando que o peso para a maior
nota seja 4 e para as duas restantes, 3. Mostre o código do aluno, suas três notas,
a média calculada e uma mensagem "APROVADO" se a média for maior ou
igual a 5 e "REPROVADO" se a média for menor que 5. }
var
cod:integer;
n1, n2, n3, nm1, nm2, nm3, media:real;

Begin
media:=0;
writeln('Digite o código do aluno : ');
read(cod);
write('digite a 1o. nota : ');
read(n1);
write('digite a 2o. nota : ');
read(n2);
write('digite a 3o. nota : ');
read(n3);
{aproveitando a mesma estrutura para ordenar a maior nota, as
outras duas não tem importançia na ordem, pois tem o mesmo peso}
if ((n1 > n2) and (n1 > n3)) then
begin
nm1:=n1;
nm2:=n2;
nm3:=n3;
end
else
if ((n2 > n1) and (n2 > n3)) then
begin
nm1:=n2;
nm2:=n1;
nm3:=n3;
end
else
if ((n3 > n1) and (n3 > n1)) then
begin
nm1:=n3;
nm2:=n1;
nm3:=n2;
end;
media:=(((nm1*4) + (nm2*3) + (nm3*3))/10);
if (media >= 5) then
begin
writeln('O aluno de código ',cod,' foi APROVADO com média : ',media:1:2);
end;
if (media < 5) then
begin
writeln('O aluno de código ',cod,' foi REPROVADO com média : ',media:1:2);
end;
End.