SoloCodigo

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.