program Fercuencia;
uses crt;
var
letra:char;
Frase:string;
Frecuencia : array ['a'..'z'] of longint;
contador:integer;
columna:integer;
Begin
clrscr;
gotoxy(1,20);write('pulse . para salir...');
Repeat
Columna:=1;
for contador:=1 to 26 do
begin
gotoxy(1+columna,1);write(chr(96+contador));
gotoxy(1+columna,2);write(Frecuencia[chr(96+contador)]);
inc(columna,3);
end;
gotoxy(1,10);write('Proporcione una Frase :');
Letra:=Readkey;
If letra in ['a'..'z'] then
Begin
Frecuencia[letra]:= Frecuencia[letra] + 1;
End;
Frase:=Frase+letra;
gotoxy(1,11);write(frase);
Until Letra = '.';
End.