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

[gylayko]

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

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 Memo1.Lines.Add('конец стека');
   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;

но как это применить к основной программе? в переменных я совсем запутался. помогите составить единый код.

[Stilet]

type
fil=record;
chislo:integer;
end;

Лишнее. Достаточно ftype=file of integer;

потом инициализируем элементы

Лишнее

Procedure Init2 (var f:ftype);
var i:integer;
begin
rewrite(f);
for i:=1 to 10 do write (f,random(100));
close(f);
end;

Далее считываем файл:

var m,i:integer;
...
reset(f); m:=0;
while not eof(f) do begin
 read(f,i);
 if (m=0) or (((i div 10)+(i mod 10))<((m div 10)+(m mod 10))) then m:=i;
end; close(f);

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