Cuentaletras

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.