Вот моя процедура кодирования:
Procedure shifr();
var i, n:integer;
begin
writeln('Введите текст: ');
readln(s);
for i := 0 to 255 do //Инициализация массива(счетчика)
mass[i] := 0;
for i := 1 to length(s) do //подсчет числа символов
inc(mass[ord(s[i])]);//выдает код i-того символа
n := 0;
for i := 0 to 255 do
if mass[i] <> 0 then begin//Формируем листья дерева
inc(n);
new(TMass[n]);
TMass[n]^.N := Mass[i];
TMass[n]^.symbol := chr(i);
TMass[n]^.Left := nil;
TMass[n]^.Right := nil;
end;
Sort(TMass, N);
//Формируем само дерево
while n > 1 do
begin
new(p);
p^.n := TMass[n]^.N + TMass[n - 1]^.N;
p^.left := TMass[n - 1];
p^.right := TMass[n];
TMass[n - 1] := p;
Dec(n); //Уменьшает значение n на 1
Sort(TMass, N);
end;
//Подсчитываем число бит для закодированного текста
n:=0;
for i:=0 to 255 do
if mass[i]<>0 then
n:=n+mass[i]*length(GetCode(p, chr(i), ''));
Writeln('Число бит закодированного текста: ',n);
g := ''; //Кодируем строку
for i := 1 to length(s) do
begin
g:=g+GetCode(p, s[i], '');
end;
Writeln('Закодированный текст: ', g);
end;