Pascal/Turbo Pascal - ayuda funcion

queria saber porq no me devuelve la mayuscula la funcion q hice...corro todo el programa pero cuando me sale por pantalla la parte de 'su mayuscula es:' no aparece nada es decir no me devuelve la mayuscula.
solucion???
gracias!! :)

Program Letras;
Uses
crt;
Var
c:char;

Function Minuscula (c:char):char;
var
letra:char;
Begin
read (c);
letra:= upcase(c);
minuscula:=letra;
End;

Begin
ClrScr;
Writeln ('Ingrese letra');
Read (c);
ClrScr;
Writeln ('Letra Ingresada: ',c);
Writeln ('Su mayuscula es: ', minuscula(c));
Readkey;
End.

Niña querida ¿probaste quitando ese Read(c); que tienes dentro de la función Minúscula? :)