Notas de alunos com médias diferentes

program notas;
uses crt;
  procedure media(n1,n2,n3:real);
  var letra: char;
      med: real;
  begin
    if (letra = 'A') then med := (n1 + n2 + n3 / 3)
    else
      if (letra = 'P') then med := (n1*5) + (n2*3) + (n3*2) / 10;
  end;
  var nota1, nota2, nota3: real;
      letra: char;
  Begin
    clrscr;
    writeln ('digite as notas do aluno');
    readln (nota1,nota2,nota3);
    writeln ('Digite a letra para o calculo da media');
    readln (letra);
    media(nota1,nota2,nota3);
    readkey;
  end.