За один просмотр файла вывести все числа, сумма цифр которых наименьшая

uses crt;
type
 fil=record;
 chislo:integer;
end;
ftype=file of fil;
pok=^prt;
prt=record
 inf:fil;
 next:pok;
end;

var f:ftype; s:fil; L:pok; x:integer; m,stakc:integer;
procedure Init (var s:fil);
begin
 with s do
  begin
   ch:=random(100);
  end;
end;

Procedure Init2 (var f:ftype);
Var s1:fil;
begin
 rewrite(f);
init(s1);
 write (f,s1);
 init(s1);
close(f);
end;

Procedure Init1 (var L:pok; var f:ftype; var m,stack:integer);
var h:pok; d:fil;
begin
 reset(f);
  L:=nill;
  m:=0;
  stack:=0;
while not eof(f) do
 begin
  read(f,d);
   with d do
    begin
      if d.ch>m
       then m:=d.ch;
      end;
new(h);
h^.inf:=d;
h^.next:=L;
L:=h;
stack:=stack+1;
end;
close(f);
end;

Procedure druck(var L:pok(;
begin
 if L=nil
  then writeln('конец стека');
   else begin
    Memo1.Text:=IntToStr(L^.inf.ch);
   druck(L^.next);
  end;
end;

Label1.Text:=name;
assign(f,name)

     s:=0;
     while ( x < > 0 ) do begin
       s := s + (x mod 10);
       x := x div 10;
     end;

var
  f : file of integer;
  stack : TStack<Integer>;
 
procedure TForm1.Button1Click(Sender: TObject);
  function GetSum(n : Integer) : Integer;
  begin
    Result := 0;
    while n <> 0 do
    begin
      Inc(Result, n mod 10);
      n := n div 10;
    end;
 
  end;
var
   Sum, SavedSum, Value : Integer;
begin
  stack := TStack<Integer>.Create;
 
  AssignFile(f, ExtractFilePath(Application.ExeName) + 'test.dat');
  Reset(f);
  while not Eof(f) do
  begin
    Read(f, Value);
    Memo1.Lines.Add(IntToStr(Value));
 
    Sum := GetSum(Value);
 
    if stack.Count > 0 then
    begin
      SavedSum := GetSum(stack.Peek);
      if Sum = SavedSum then stack.Push(Value)
      else
        if Sum < SavedSum then
        begin
          stack.Clear;
          stack.Push(Value);
        end;
    end
    else stack.Push(Value);
  end;
  CloseFile(f);
 
  Memo1.Lines.Add('Results');
  while stack.Count > 0 do
  begin
    Memo1.Lines.Add(IntToStr(stack.Pop));
  end;
 
  stack.Free;
end;
 
procedure TForm1.FormCreate(Sender: TObject); // при старте создаем файл с числами
var
  i, j : Integer;
begin
  Randomize;
 
  AssignFile(f, ExtractFilePath(Application.ExeName) + 'test.dat');
  Rewrite(f);
  for i := 1 to 100 do
  begin
    j := Random(5000);
    Write(f, j);
  end;
  CloseFile(f);
end;