program kecil untuk mendapatkan daftar huruf yang paling sering muncul (secara urut) dalam:

(pascal)
procedure doParse (inputStr: string);
var
i, j, Imax, iChar, nChar: Integer;
myArray : array [1..26] of Char;
found : boolean;
begin
nChar := Length (inputStr) ;
iChar :=1;
for j:=1 to 26 do myArray[j].Freq :=0;
while (iChar <= nChar) do
begin
while (inputStr[iChar] in ['a'..'z']) do
begin
i :=1; found := false;
while ((i<=26) and (not found) do
begin
if (myArray[i].ch = inputStr[iChar]) then
begin
myArray[i].Freq:=myArray[i].Freq+1;
found :=true;
end
else
if (myArray[i].Freq = 0) then
begin
myArray[i].ch := inputStr[iChar];
myArray[i].Freq:=myArray[i].Freq+1;
found :=true;
end
else
i :=i+1;
end;
iChar :=iChar + 1;
end;
iChar := iChar + 1;
end;
writeln ('Hasil perhitungan frekuensi huruf :');
for i:=1 to 26 do
begin
if (myArray[i].Freq >0) then
writeln (myArray[i].ch, '',myArray[i].Freq);
end;
// mencari huruf yang paling sering muncul
Imax :=1;
for i := 2 to 26 do
if myArray[i].Freq > myArray[Imax].Freq then Imax :=1;

writeln ('Huruf yang paling sering muncul adalah huruf "', myArray[Imax].ch, '"yait
end;