Энтропия и избыточность информации в файле

uses crt;
var f:text;
    s,t,r:string;
    a:array[byte] of byte;
    i,j,n:byte;
    d,p, k, H,HO,RO,RA,ROG:real;
    begin
    writeln('введите имя файла');
    readln(t);
    k:=0;
    d:=0;
    H:=0;
  
    assign (f,t);
reset(f);
for i:=1 to 255 do a[i]:=0;
while not eof(f) do
 begin
  readln(f,s);
  n:=length(s);
  k:=k+n;
  for i:=1 to 255 do
    for j:=1 to n do
    
    if chr(i)=s[j] then a[i]:=a[i]+1;  
 end; 
close(f);
writeln('Встречаемость символов:');
for i:=1 to 255 do
 begin
 
 if (i>9) then r:='  ';
 if (i<10) then r:='   ';
  if (i>99)  then r:=' ';
    p:=a[i]/k;
    if (p>0) then
    begin
      d:=d + a[i]*(-1)*log2(p);
      H:=H + (-1)*p*log2(p);
      end;
     if (i=10) or (i=7) or (i=13) or (i=9) or (i=8) or (i=149) then 
     writeln(i, ' ', r , ' - ', '#', ' ',p:0:4)
     else
     writeln(i, ' ', r , ' - ', chr(i), ' ',p:0:4);
                
     end;
     HO:=log2(256);
     RO:=HO-H;
     RA:=RO/HO;
     ROG:=k * sizeof(byte)- RO/8;
     writeln('размер файла',' ',k * sizeof(byte),' ', 'байт');
     writeln('количество информации: ',d:0:4);
     writeln('энтропия: ',H:0:4);
     writeln('избыточность: ',RO:0:4);
     writeln('относительная избыточность: ',RA:0:4);
     writeln('Избыточность файла: ',ROG:0:4);
      end.