Код Фано

type
  zap = record
    a: char;
    chastota: integer;
    p: real;
    code: string;
  end;
  
  mas = array of zap;
 
var
  m: mas; c: char; i, n: integer;
 
 
procedure form(var m: mas);
begin
assign (t, 3'.txt');//открываем файл для чтения текст
reset (t); //формируем массив из символов текста и их частот
readln(t,i);
writeln (i);
close(t);   //закрываем файл
            //находим вероятности 
end;
 
procedure print(m: mas);
begin
  //вывод на экран
end;
 
procedure sort(var m: mas);
array [1..100] of integer;
begin
 
  //сортировка массива по убыванию вероятностей //Методом Пузырька
end;
 
procedure fano(var m: mas; l, t: integer; s: double);
var
  s1, s2, s11, s22: double;i, j, k: integer;
begin
  if l = t then exit else
  if t - l = 1 then 
  begin
    // к m[l].code дописывем к коду 0 в конец
    //m[t].code дописывем к коду 1 в конец
  end
  else if t - l > 1 then 
  begin
    i := l;
    j := t;
    
    //обнуляем суммы s1 и S2
    //находим суммы s1 и S2 наиболее близкие друк к другу по значению
    //
    
    //переменная i является рубежом для сумм
    for  k := l to t do
      if k <= i then //дописывем к коду k-ой буквы 0 в конец
      else //дописывем к коду k-ой буквы 1 в конец
   
    
    fano(m, l, i, s1);
    fano(m, i + 1, t, s2);
  end;
end;
 
begin
  setlength(m, 0);
  form(m);
  {print(m);}
  sort(m);
  print(m);
  fano(m, 0, m.Length - 1, 1);
  print(m);
  assign(input,'3.txt');
  reset(input);
  assign(output,'3_1.txt');
  rewrite(output);
  while not eof(input) do
  begin
    while not eoln(input) do 
    begin
    read(c);
    i:=0;
    while (i<m.Length) and (c<>m[i].a) do inc(i);
    write (m[i].code);
    end;
    writeln(output);
    readln(input);
  end;
  close(input);
  close(output);
end.