Pascal/Turbo Pascal - Archivos de texto en pascal

Bueno, mi problema es que no se como puedo pasar un archivo de texto ya creado a mayusculas, es decir, el original posee mayusculas y minusculas y necesito pasarlo todo a mayusculas. Me imagino que necesitare un archivo auxiliar que vaya cogiendo cada letra del original, la pase a mayuscula, y la escriba en el archivo auxiliar. Pero no se como implementarlo

Bastante sencillo, veamos.

var
Entrada, Salida: file of char;
C: char;

begin
Assign(Entrada, 'entrada.txt');
Assign(Salida, 'salida.txt');
reset(Entrada);
Rewrite(Salida);
while not eof(Entrada) do
begin
Read(Entrada, C);
C:=UpCase(C);
Write(Salida, C);
end;
Close(Entrada);
Close(Salida);
end.

El truco está en tratar los archivos de texto como si fueran archivos de caracteres nada más, y luego leer cada caracter de a uno y "dropearlos" en otro archivo pasándolos por la función UpCase.

necesito que me den la idea de hacer un mprograma q utiliza archivos de texto pero necesito q cuente por ejemplo las palabras de un solo caracter, las de 2 ,etc
necesito la idea