Hola!!
Estoy resolviendo un problema sobre contar letras de una frase. Llevo hecho esto del programa, pero no se porque falla, me gustaria saber donde para poder corregirlo, asi que a ver si alguien me pudiese echar una mano. Gracias, soy nuevisima en programacion y me gustaria sacarlo adelante.
program contar;
uses crt;
var
frase:string;
i:integer;
letra:char;
frecuencia:array['a'..'z'] of integer;
begin
clrscr;
begin
write('escribe una frase: ');
read(frase);
for i:=1 to length(frase) do
letra:=frase[i+1];
end;
frecuencia[letra]:=0;
if letra>='a' and letra<='z' then
frecuencia[letra]=frecuencia[letra]+1;
for letra:='a' to 'z' do
if frecuencia[letra]>0 then
writeln('frecuencia de',letra,':',frecuencia[letra]);
readkey;
end.
