Pascal/Turbo Pascal - ejercicio :S

hola soy nuevo en esto y necesito hacer 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".

si alguien me puede decir como acer o algunas pautas a seguir....
Gracias de antemano.

Bueno, una cadena es un arreglo de caracteres, entonces:

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;

Espero te sirva, saludos.

Muxas graX, y una dudilla mas... nose 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?

Un saludo

A ver si entiendo vien. ¿Lo que querés es no distinguir entre minúsculas y mayúsculas?

Si es así, se puede hacer así:

Pedís las entradas normalmente, pero a la hora de comparar una letra con otra:

en vez de

if Cadena[Ind]=Letra...

Podés poner

if UpperCase(Cadena[Ind])=UpperCase(Letra)...

UpperCase convierte la letra en mayúsculas. Por cierto, no me acuerdo si era UpperCase o UpCase, pero una de las dos es.

Saludos.