Считывание чисел из файла и вывод их на экран - Turbo Pascal

Program fl;
uses crt;
function Dec (n:integer):string;
const m:array [0..1] of char= ('0','1');
var
d:0..1;
s:string;
begin
s:=''; {пустая строка, а не пробел}
while n<>0 do
 begin
  d:=n mod 2;
  s:=m[d]+s;
  n:=n div 2;
 end;
while length(s)<4 do
s:='0'+s;
Dec:=s;
end;
 
var
f:text;
n:integer;
s:string;
begin
clrscr;
assign(f,'text.txt'); {файл в папке с програмой}
reset(f);
while not seekeof (f) do{чтобы не читало пробелы в конце если они случайно будут}
 begin
  read(f,n);
  s:=''; {пустая строка, а не пробел}
  while n>0 do
   begin
    s:=Dec(n mod 10)+s;
    n:=n div 10;
   end;
  writeln (s);
 end;
close (f);
readln
end.