Pascal/Turbo Pascal - ejercico 2º forma

tenemos este ejercicio:

Realizar un programa que sustituya un carácter por otro en un texto (string) que se recibirá de teclado. El programa solicitará al usuario el carácter a sustituir y el carácter sustituto, asi como la frase. Es decir, se si escribe la frase "Esto es una prueba", carácter a sustituir "e" y caracter sustituto "U", la salida del programa será: "Esto Us una prUba".

siendo el codigo fuente:

var Entrada:string;
Letra, Sustito:har;
Ind:integer;

begin
//pedimos los datos
writen('Frase: ');readln(Entrada);
write('Letra a sustituir: ');readln(Letra);
write('Letra sustituta: ');readln(Sustituto);

//recoremos la cadena length devuelve la longitud de la cadena.
for ind:=1 to length(Entrada) do
if Cadena[Ind]=Letra then Cadena[Ind]:=Sustituto;

writeln('La cadena sustituida es: ',Cadena);
end;
----------------------------------------------------------------------------------------------------
Yo querria saber si podria hacer este ejercicio mediante la lista ascii poniendo el codigo de la letra, para k recorra las minusculas y las mayusculoas, y luego compare las entradas desde teclado para comprovar la k es iwal y sustituirla... yo esk lo habia pensado de esa forma, pero nose si se podria, si me podeis decir si se puede y mas o menos como?