Сумма цифр в типизированных файлах

[Шпилька]

Приветствую. Помогите кто чем может.
Необходимо переписать числовые данные из текстового файла в типизированный файл. При этом нужно найти сумму цифр каждого числа без учета повторяющихся цифр. цифры дающие повторяющиеся суммы удалить. Выводит какую-то ересь. Гляньте умными глазами. Вот часть программы:

procedure obr_fil;
var k,j,x,i,sum,n,b,m,t,r:integer;
begin
reset(f1); rewrite(f2);
sum:=0;
for i:=1 to filesize(f1)-1 do begin
seek(f1,i);   read(f1,x);j:=1;
while x<>0 do begin
t:=x mod 10;
x:=x div 10;
inc(j);
end;
m:=j-1;
for j:=1 to m do
begin
k:=j+1;
while k<=m do
if r=t then begin while k<>m do begin r:=r+1;
inc(k); end;
dec(m); end
else inc(k);
end;
sum:=0;
for j:=1 to m do
sum:=sum+t;
t:=sum; {x:=t;} write(f2,t);
end; close(f2); writeln; end;

procedure udal_fil;
var i,j,sum,k,x,r,t,m:integer;
p:boolean;
begin
reset(f2);
k:=0;
for i:=1 to filesize(f2)-1 do begin
seek(f2,i); read(f2,x);}p:=true;
for j:=1 to k do
write(f2,x);
if x=t then p:=false;
if p=true then begin inc(k);
r:=x;
end;
end;
writeln;
{write('massiv bez');  writeln;
for i:= 1 to k do
write(b[i],' '); }
end;