Нужно разобраться с кодом программы!

[anastasiyaev]

Имеется сообщение длинной 10000 цифр, представленное в виде текстового файла. Символы сообщения составляют ансамбль {X,P(X)}. Соседние элементы сообщения статистически связаны между собой.

Требуется определить следующие характеристики информационного массива:
1.Вероятности появления символов в сообщении p(x) и записать их в виде ансамбля {X,P(X)};
2.Вычислить энтропию ансамбля H(X) и определить количество информации в сообщении без учета статистической связи между соседними элементами.
3.Рассчитать матрицу совместных p(x,y) и условных p(y/x) вероятностей, а также совместную H(X,Y) и условную H(Y/X) энтропии.
4.Вычислить количество информации в сообщении с учетом взаимной связи между элементами сообщения.
5.Определить коэффициент избыточности сообщения в обоих случаях (при наличии и отсутствии связи).

unit LR1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    pp: TOpenDialog;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
       procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  a:array[0..255]of real;
  aa:array[0..255]of real;
  m,mm:array[0..255,0..255]of real;
    c:File of byte;
  b,bb:byte;
  i,j:integer;
  s,ss,x,xx,en,k,ki:real;
implementation
{$R *.dfm}
 procedure TForm1.Button1Click(Sender: TObject);
begin
 for i:=0 to 255 do begin
  for j:=0 to 255 do begin
      m[i,j]:=0;
      mm[i,j]:=0;               end;
      a[i]:=0;
      aa[i]:=0;
end;
 if pp.Execute then begin
    AssignFile(c,pp.FileName);
    reset(c);

while not EoF(c) do begin
read(c,b);
a[b]:=a[b]+1;
aa[b]:=a[b];
end;
 en:=0;
 s:=0;
 for i:=0 to 255 do begin
 aa[i]:=aa[i]/10000;
  s:=s+aa[i];
 if aa[i]<>0 then
  en:=en+aa[i]*(ln(aa[i])/ln(2));
 end;
 Memo1.lines.Add('сумма вероятностей= '+FloatToStr(s));
 Memo1.lines.Add('энтропия источника= '+FloatToStr(-en));
 end;
 reset(c);
 read(c,b);
 while not EoF(c) do begin
 read(c,bb);
m[b,bb]:=m[b,bb]+1;
mm[b,bb]:=m[b,bb];
b:=bb;
end;
 s:=0;
 xx:=0;
  x:=0;
 for i:=0 to 255 do begin
 for j:=0 to 255 do begin
  m[i,j]:=m[i,j]/9999;
  s:=s+m[i,j];
    if m[i,j]<>0 then begin
  x:=x+m[i,j]*(ln(m[i,j])/ln(2));
  end;
  if a[i]<>0 then
  mm[i,j]:=mm[i,j]/a[i];
  ss:=ss+mm[i,j];
 end;
  xx:=xx+x;
  x:=0;
 
 end;

 memo1.Lines.Add('сумма совместных вероятностей пар= '+floatToStr(s));
 memo1.Lines.Add('сумма условных вероятностей пар= '+floatToStr(ss));
 s:=0;
 ss:=0;

 for i:=0 to 255 do begin
 for j:=0 to 255 do begin

 if mm[i,j]<>0 then
  s:=s+mm[i,j]*(ln(mm[i,j])/ln(2));

   end;
   s:=s*aa[i];
   ss:=ss+s;
    s:=0;
 end;
   memo1.Lines.Add('условная энтропия= '+floatToStr(-ss));
 memo1.Lines.Add('совместная энтропия= '+floatToStr(-xx));
 x:=-en-ss;
  memo1.Lines.Add('проверка '+floatToStr(x));
   k:=(8-en)/8;
   ki:=10000*(-en);
   memo1.Lines.Add('количество информации без учета связи = '+floatToStr(ki));
   memo1.Lines.Add('коэффициент избыточности без учета связи = '+floatToStr(k));
   k:=(8-ss)/8;
   ki:=10000*(-ss);
   memo1.Lines.Add('количество информации c учетом связи = '+floatToStr(ki));
   memo1.Lines.Add('коэффициент избыточности с учетом связи = '+floatToStr(k));
 end;
 procedure TForm1.Button2Click(Sender: TObject);
begin
memo1.Clear;
end;
end.

2я часть не поместилась.
Всё задание здесь:
лаба1.doc