Кодировка Хафмана

[hottabych23]

program haff;
uses crt;
label 1;
type vector=array[1..50] of integer;
ryadok=array[1..50] of string;
var s,u:string;
c,y:array[1..50] of char;
dv:ryadok;
k1,k,z,i,l,j,x,z1:integer;
m:vector;
rez:array[1..50,1..50] of integer;

procedure sort(var a:vector);
var b:integer; i,j:byte;
begin
for j:=k downto 2 do
for i:=1 to j-1 do
if a[i]<a[i+1] then begin
b:=a[i]; a[i]:=a[i+1]; a[i+1]:=b;
end;
end;

begin
clrscr;
textcolor(15);
write('vvedit ryadok:'); read(s);
k1:=length(s);
z:=0;
for i:=1 to length(s) do begin
u:=s[i];
if i>=2 then begin
for k:=1 to i-1 do
if s[k]=u then goto 1; end;
for k:=1 to length(s) do
if u=s[k] then z:=z+1;
m[i]:=z;
1: k1:=length(s)-1;
z:=0;
end;
k:=1;
for i:=1 to length(s) do begin
if m[i]>0 then begin
m[k]:=m[i];c[k]:=s[i]; k:=k+1;
writeln(m[i],' ',s[i]); end;
end;
writeln;
sort(m);
textcolor(4);
for i:=1 to k do
rez[i,1]:=m[i];
for i:=1 to k-1 do
write(rez[i,1],' ');
textcolor(15);
writeln;
k:=k-1;
l:=2;
for i:=k downto 3 do
begin
m[i-1]:=m[i]+m[i-1];
sort(m);
for j:=1 to i-1 do begin
rez[j,l]:=m[j];
write(rez[j,l],' ');
end;
l:=l+1;
x:=0;
writeln end;

dv[1]:='0';
dv[2]:='1';
z:=2;
l:=k-2;
writeln;
for j:=k-1 downto 1 do
begin
for i:=1 to z do
begin
x:=rez[i,j];
if x=rez[z,l]+rez[z+1,l] then begin

z1:=i;
dv[z+1]:=dv[i]+'1';u:=dv[i]+'0';
if z1<=z-1 then begin
for k1:=z1 to z-1 do begin
dv[k1]:=dv[k1+1]; end;
dv[z]:=u;
end;
break;
end;
end;
l:=l-1;
z:=z+1;
end;
textcolor(4);
for i:=0 to k do
writeln(dv[i]);
readln;
readln;
end.

Есть программа которая реализует алгоритм Хафмана на Паскале.

Подскажыте как сделать эту программу на Делфи, чтобы покроково выводить информацию. Какий модуль подключать?

[hottabych23]

Нужно еще графический интерфейс. Стрелки должны показывать что изменилось в кроке