Перезапись из текстового файла в массив и в типизированный файл

Type tf=file of integer;
     tmas=array[1..100] of integer;
Var f:tf;
    g:text;
    A:tmas;
    n,m:integer;
Procedure P1(a:tmas;n:integer);
Var i,j,s,m,t:integer;
    mn:set of 0..9;
    B:tmas;
Begin
    m:=0;i:=1;
    While i<=n do
    Begin
      t:=abs(a[i]);mn:=[];s:=0;
      While t>0 do
      Begin
        if not((t mod 10) in mn) then s:=s+t mod 10;
        t:=t div 10;
      End;
      t:=0;
      For j:=1 to m do
       if B[j]=s then t:=1;
      if t=0 then
      Begin
        inc(m);
        B[m]:=s;
      End
      else
      Begin
        dec(n);
        For j:=i to n do
         A[j]:=A[j+1];
        dec(i);
      End;
      inc(i);
    End;
    writeln('Суммы массива');
    For i:=1 to m do
     write(B[i]:3);
    writeln;
End;
Procedure P2(f:tf);
Var i,j,s,m,t,n:integer;
    mn:set of 0..9;
    B:tmas;
Begin
    Reset(f);m:=0;i:=1;
    n:=FileSize(f);
    While i<=n do
    Begin
      read(f,t);mn:=[];s:=0;
      While t>0 do
      Begin
        if not((t mod 10) in mn) then s:=s+t mod 10;
        t:=t div 10;
      End;
      t:=0;
      For j:=1 to m do
       if B[j]=s then t:=1;
      if t=0 then
      Begin
        inc(m);
        B[m]:=s;
      End
      else
      Begin
        dec(n);
        For j:=i to n do
        Begin
          Seek(f,i);
          read(f,t);
          Seek(f,i-1);
          write(f,t);
        End;
        dec(i);
        Seek(f,i-1);
      End;
      inc(i);
      Seek(f,i-1);
    End;
    writeln('Суммы файла');
    For i:=1 to m do
     write(B[i]:3);
    writeln;
End;
Begin
    Assign(g,'in.txt');Reset(g);
    Assign(f,'in.dat');Reset(f);
    While not Eof(g) do
    Begin
      While not Eoln(g) do
      Begin
        read(g,m);
        write(f,m);
        inc(n);
        A[n]:=m;
      End;
      readln(g);
    End;
    Close(g);
    P1(a,n);
    P2(f);
    Close(f);
End.

uses crt;
type mas=array[1..100] of integer;
     tfile=file of integer;
function sum(a:integer):byte;
var b:integer;
    c,s:byte;
    m:set of byte;
begin
b:=a;
m:=[];
s:=0;
while b>0 do
 begin
  c:=b mod 10;
  if not(c in m) then
   begin
    s:=s+c;
    m:=m+[c];
   end;
  b:=b div 10
 end;
sum:=s
end;
procedure readmas(var f:text;var a:mas;var n:integer);
begin
reset(f);
n:=0;
while not eof(f) do
 begin
  n:=n+1;
  read(f,a[n]);
 end;
close(f)
end;
procedure readfile(var f:text;var t:tfile);
var a:integer;
begin
reset(f);
assign(t,'file');
rewrite(t);
while not eof(f) do
 begin
  read(f,a);
  write(t,a);
 end;
close(f)
end;
procedure printmas(a:mas;n:integer);
var i:integer;
begin
writeln('Исходный массив');
for i:=1 to n do
write(a[i]:4);
writeln
end;
procedure printfile(var t:tfile);
var a:integer;
begin
seek(t,0);
writeln('Содержание исходного типизированного файла');
while not eof(t) do
 begin
  read(t,a);
  write(a:4);
 end;
writeln
end;
procedure newmas(var a:mas;var n:integer);
var i,j:integer;
    m:set of byte;
begin
m:=[];
i:=1;
while i<=n do
if not(sum(a[i]) in m) then
 begin
  m:=m+[sum(a[i])];
  i:=i+1
 end
else
 begin
  if i=n then n:=n-1
  else
   begin
    for j:=i to n-1 do
    a[j]:=a[j+1];
    n:=n-1
   end;
 end;
writeln('Удаление элементов с повторяющейся суммой цифр');
for i:=1 to n do
write(a[i]:4);
writeln
end;
procedure newfile(var t:tfile);
var i,j,k,a,b:integer;
    m:set of byte;
begin
seek(t,0);
m:=[];
i:=0;
k:=0;
while i<filesize(t)-k-1 do
 begin
  seek(t,i);
  read(t,a);
  if not(sum(a) in m) then
   begin
    m:=m+[sum(a)];
    i:=i+1
   end
  else
   begin
    k:=k+1;
    for j:=i to filesize(t)-2 do
     begin
      seek(t,j+1);
      read(t,b);
      seek(t,j);
      write(t,b)
     end;
   end
 end;
seek(t,filesize(t)-1-k);
read(t,b);
if sum(b) in m then k:=k+1;
seek(t,filesize(t)-k);
truncate(t);
writeln('Удаление элементов с повторяющейся суммой цифр');
seek(t,0);
while not eof(t) do
 begin
  read(t,a);
  write(a:4);
 end;
close(t)
end;
var f:text;
    a:mas;
    t:tfile;
    n:integer;
begin
clrscr;
assign(f,'input.txt');
readmas(f,a,n);
readfile(f,t);
printmas(a,n);
newmas(a,n);
printfile(t);
newfile(t);
readln
end.