(Pascal ABC) Алгоритм Хаффмана: создание дерева и кодов символов

[Abdelliamo]

Здравствуйте!

Необходимо написать программу, кодирующую текст по алгоритму Хаффмана на Pascal ABC.

Скажем так: я взял ДЗ на высший балл, но никто не предупреждал, что могут дать ДЗ, в котором необходимо будет знать куда больше, чем мы прошли.
И вот сегодня, за 3 дня до дедлайна ДЗ, нам рассказали про указатели. Лишь рассказали теорию. И препод после пары мне сообщил, что кодирование в Хаффмане делается как раз исключительно благодаря указателям.

Так вот.. Очень нужна помощь, так как понятного простого кода на Pascal ABC для Хаффмана я найти не могу. Ниже я представил основную программу, что у меня есть, и нужно как-то создать дерево Хаффмана, а потом создать префиксные коды для каждого элемента. Для меня это непосильная на данный момент задача, сдавать уже в пятницу утром, и я очень надеюсь на помощь...

Если кто-то отзовется и спасет - постараюсь отблагодарить, как смогу, честно. Мне очень стыдно и с приближающейся сессией еще страшнее...

type
   numbersArray = array[0..255] of integer;
   CharList = array[1..256] of byte;
 
var 
   Name1, Name2, Name3: string; 
   f1, f2, f3: file of byte; 
   numbers: numbersArray;  // Кол-во прочитанных символов в тексте
   symbols: CharList;   // Прочитанные символы
   CurrChar, obm: byte;
   chars: array[1..256] of byte;
   i, j, k, ka: integer;
   
 
begin
   assignfile(fIn,Name1)
   for i:=0 to 255 do
      numbers[i]:=0;
   reset(fIn);
   CurrChar:=1;
   while not eof(fIn) do 
   begin
      read(fIn, CurrChar);
      Inc(numbers[CurrChar]);
   end;
   closefile(fIn);
   
   k:=0;
   for i:=0 to 255 do
   begin
      if (numbers[i]<>0) then
      begin
         Inc(k);
         symbols[k]:=i;
      end;
   end;
   ka:=k;
   if (ka=1) then code[ka]:=0;
   while (ka>1) do begin      
     { for i:=1 to k do
         for j:=1 to (k - 1) do
            if (numbers[symbols[j]] > numbers[symbols[j+1]]) then
            begin
               obm:=symbols[j]; 
               symbols[j]:=symbols[j + 1]; 
               symbols[j+1]:=obm;
            end;  }   
            
     {Выше я выделил в скобки сортировку по возрастанию, ее нужно
            проводить по циклу каждый раз, как строится дерево}
      
{!!!А здесь необходимо построение дерева и определение кодов каждому элементу!!!}    
      
{Запись нового файла есть, благодаря здешнему шикарному модератору, как и почти вся программа}
   
end.

[evg_m]

только для вас Хаффман на pascal c описанием алгоритма.

так как понятного простого кода на Pascal ABC для Хаффмана я найти не могу