Проблема при переносе кода.

[MasterK]

Написал программу, которая кодирует сообщение по одному из методов Хаффмана. Писал в Pascal ABC так как были проблемы с Delphi. В Pascal ABC программа работает правильно, при переносе кода в Delphi для создания exe программа выдает другие значения.
Пример правильной кодировке
Сообщение accbcaaabc
Закодированное a 0c 1 00b 1 001 01 01 001 01

В делфи концовка отличается

Вот код работающий правильно в Pascal ABC

program hufman;

var
a:array [1..256] of string;
p:array [1..256] of integer;
kod:array [1..256] of string;
b,b1,n,y,vrem,a1:string;
g,i,k,g1,q,po,j,z,s,c:integer;
f:boolean;
begin
writeln('vvedite soobshenie');
readln(b);
g:=length(b);
b1:=b;
  for k:= 1 to g do
   begin
     y:=copy(b,1,1);
      kod[k]:='';
      for q:=1 to g do
        begin
          i:=pos(y,b);
          delete(b,i,1);
        end;
     n:=n+y;
     y:='';  end;
     
      g1:=length(n);
    a[1]:=copy(b1,1,1); kod[1]:=a[1]; p[1]:=1; delete(b1,1,1);

for k:= 1 to (g-1) do
begin
 vrem:=copy(b1,k,1); i:=1;
 z:=0; s:=1;
     for i:= 1 to g1 do
       begin
          if vrem=a[1] then  begin kod[k+1]:='1';
          if (vrem=a[1]) and (i=1) then p[1]:=p[1]+1;
            z:=1; end;
          if (vrem=a[i+1]) then begin
            for j:= 1 to i do
              kod[k+1]:=kod[k+1]+'0';
              kod[k+1]:= kod[k+1]+'1'; z:=1;
              p[j+1]:=p[j+1]+1; end;
        end;

          if z<>1 then
           begin
            for i:= 1 to g1 do
             begin
              a[g1+i]:=a[i];
              p[g1+i]:=p[i];
             end;
            for i:= 1 to g1 do
             begin
              a[i+1]:=a[g1+i];
              p[i+1]:=p[g1+i];
             end;
            for i:= 1 to g1 do
              a[g1+i]:='';
            for i:= 1 to g1 do
              begin
               if a[i]<> '' then
               s:=s+1;
              end;
            for i:=1 to (s-2) do
               kod[k+1]:=kod[k+1]+'0';
            p[1]:=1; a[1]:=vrem;
            kod[k+1]:=kod[k+1]+a[1];
           end;
 repeat
   f:=false;
   for i:=1 to g1-1 do
     begin
       if p[i]<p[i+1] then
         begin
          f:=true;
          c:=p[i];p[i]:=p[i+1];p[i+1]:=c;
          a1:=a[i]; a[i]:=a[i+1]; a[i+1]:=a1;
         end;
     end;
 until not f;
end;

         writeln(' kod ssobshenia');
        for k:=1 to g do begin
        write(' ',kod[k]);
   end;
end.

Помогите исправить данную проблему пожалуйста. Я видимо что-то упускаю

[Человек_Борща]

хм..
в строке 255 знаков... с 0-ём..

a:array [1..256] of string;
p:array [1..256] of integer;
kod:array [1..256] of string;

значит если от 1 до 256 то ты используешь 254 знака вместо 255..значит надо:

a:array [0..255] of string;
p:array [0..255] of integer;
kod:array [0..255] of string;

возможно в этом и была ошибка

попробуй написать это как функцию..

function Haffman(b:string): integer  //принимаемое значение это строка, выходное это число.
begin
        //твой код.
end;