Создание дерева для алгоритма Хаффмана

var mas:array [1..1000] of string;
arr:array [1..1000] of real;
i,j,h:integer;
f: text;
s,c,e: string;
a: char;
k,d: real;
 
  
begin
 assign (f,'in.txt');
 reset (f);
 read (f,s);
 close (f);
 
 //Вывод вероятностей для каждой буквы
 
c:=s;
i:=1;
while i<=length(c) do
 begin
  a:=c[i];
  for j:=length(c) downto i+1 do
  if c[j]=a then delete(c,j,1);
  i:=i+1;
 end;
 for j:=1 to length(c) do
 begin
 mas[j]:=c[j];
 end;
//---------------------
for i:=1 to length(c) do
 begin
   for j:=1 to length(s) do
   begin
   if c[i]=s[j] then
   h:=h+1;
   end;
   k:=h/length(s);
   k:= round (k*100);
   k:=k/100;
   arr[i]:=k;
   k:=0;
   h:=0;
 end; 
//Конец вывода вероятностей для каждой буквы
 
//Метод пузырька
   for h:=1 to  length(c)-1 do
    begin
      for j:=1 to length(c)-1 do
      begin
      if arr[j]<arr[j+1] then
       begin
       d:=arr[j+1];
       arr[j+1]:=arr[j];
       arr[j]:=d;
       
       e:=mas[j+1];
       mas[j+1]:=mas[j];
       mas[j]:=e;
       end;
      end;
    end;
 
writeln;
 
for j:=1 to length(c) do
begin
 write (mas[j]:4);
end;
 
writeln;
 
for j:=1 to length(c) do
begin
 write (arr[j],' ');
end;
 
 writeln;
//Конец метода пузырька
 end.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
type
  Tvesa=record
  symbols:string; //узел (что в узле)
  ves:integer;
  end;
 
  Tcode=record
  symbol:char;
  code:string; // ну можно конечно для наглядности в бинарку загнать
  end;
 
 
var VesArr:array of Tvesa; // массив весов символов
    CodeArr:array of Tcode; // массив кодовых слов
    f:Textfile ;
    s,st:string;
    i,j:integer;
    l:integer;
 
 
procedure sortVesarr;//процедура сортирует Vesarr в порядке убывания
var i,j:integer;
    prom:Tvesa;
begin
for i:=0 to length(vesarr)-2 do
  for j:=i+1 to length(vesarr)-1 do
    if VesArr[j].ves>vesarr[i].ves then
      begin
      prom.symbols:=vesarr[i].symbols;
      prom.ves:=vesarr[i].ves;
      vesarr[i].symbols:=vesarr[j].symbols;
      vesarr[i].ves:=vesarr[j].ves;
      vesarr[j].symbols:= prom.symbols;
      vesarr[j].ves:=prom.ves;
      end;
 
end;
 
 
 
/////////////////////////
begin
assign (f,'in.txt');
reset (f);
while not EOF(f) do
begin
readln (f,st);
s:=s+st;
end;
close (f);
 
//// считаем частоту встречи
for i:=1 to length(s) do
  for j:=0 to length(vesarr) do
    begin
    if j=length(vesarr) then
      begin
      setlength(vesarr,length(vesarr)+1);
      vesarr[length(vesarr)-1].symbols:=s[i];
      vesarr[length(vesarr)-1].ves:=1;
      break;
      end
    else
      if s[i]=vesarr[j].symbols[1] then
        begin
        vesarr[j].ves:=vesarr[j].ves+1;
        break;
        end;
    end;
//  vesarr содержит веса
 
sortVesarr;
 
setlength(CodeArr,length(vesarr));
for i:=0 to Length(VesArr)-1 do
    begin
    CodeArr[i].symbol:=vesarr[i].symbols[1];
    CodeArr[i].code:='';
    end;
 
 
//Формируем Дерево
 
 
 
 
while length(VesArr)>1 do
  begin
 
  if length(vesarr[length(vesarr)-1].symbols)=1 then
    begin
      for i:=0 to Length(CodeArr)-1 do
        if vesarr[length(vesarr)-1].symbols[1]=codearr[i].symbol then
            begin
            CodeArr[i].code:='0'+codearr[i].code;
            break;
            end;
    end
    else
       for i:=1 to length(vesarr[length(vesarr)-1].symbols) do
        for j:=0 to Length(CodeArr)-1 do
        if vesarr[length(vesarr)-1].symbols[i]=CodeArr[j].symbol then
          CodeArr[j].code:='0'+CodeArr[j].code;
 
   if length(vesarr[length(vesarr)-2].symbols)=1 then
    begin
      for i:=0 to Length(CodeArr)-1 do
        if vesarr[length(vesarr)-2].symbols[1]=codearr[i].symbol then
            begin
            CodeArr[i].code:='1'+codearr[i].code;
            break;
            end;
    end
    else
       for i:=1 to length(vesarr[length(vesarr)-2].symbols) do
        for j:=0 to Length(CodeArr)-1 do
        if vesarr[length(vesarr)-2].symbols[i]=CodeArr[j].symbol then
          CodeArr[j].code:='1'+CodeArr[j].code;
 
 
  vesarr[length(vesarr)-2].symbols:=vesarr[length(vesarr)-2].symbols+vesarr[length(vesarr)-1].symbols;
  vesarr[length(vesarr)-2].ves:=vesarr[length(vesarr)-2].ves+vesarr[length(vesarr)-1].ves  ;
  setlength(VesArr,length(VesArr)-1);
  sortVesarr;
  end;
 
 
 
  l:=0;
  writeln('ishodny text:');
  writeln(s);
  writeln('');
  writeln('Kodirovanny text:');
for i:=1 to length(s) do
begin
  for j:=0 to length(CodeArr)-1 do
  if s[i]=codearr[j].symbol then
    begin
    write(codearr[j].code+' ');
    l:=l+length(codearr[j].code);
    end;
end;
  writeln('');
   writeln('');
  writeln('Dlina zacodirovannogo: ',l);
 
readln;
end.