Programa que pide la introducción de una frase terminada con el retorno de carro desde él y pide también un caracter a buscar en esa frase.
La salida del programa será una presentación por pantalla del número de veces que aparece ese caracter en la frase.
program cuentaletras;
var
frase:string;
c :char;
contador:byte;
n:integer;
begin
writeln(output,'escribase una frase ');
readln(frase);
writeln(output,'escribase el caracter a buscar en la frase ');
readln(c);
while pos(c,frase)<>0 do
begin
contador:=contador+1;
n:=pos(c,frase);
delete(frase,n,1);
end;
writeln(output,c,'aparece',contador,'veces');
end.