Создать типизированный файл, который содержит несколько вещественных чисел, после чего вывести на экран монитора эти вещественные числа в двоичну сис

// f: file of real;
// j: real;
assign(f,'input.dat');
rewrite(f);
write('Vvedite kol-vo chisel: ');
readln(n); // Количество чисел
for i:= 1 to n do
begin
  readln(j);  // само число
  write(f,j);  //запись его в файл
end;
close(f);

assign(f,'input.dat');
reset(f);
i:=0;
while not eof(f) do
begin
  read(f,j);
  // А вот здесь я предоставляю Вам место для творчества
  // Осталось перевести число j в двоичную систему
  // и вывести его на экран. Удачи
end;
close(f);

uses crt;
var f:file of real;
    ph:string;
    n:real;
    t:longint;
function fromdec(n:real; r,t:longint):string;
const digit:string[2]='01';
var s,s1,sx:string;
    x:real;
    p,k,buf:longint;
begin
s:='';
x:=frac(n);
p:=trunc(n);
repeat
 s:=digit[(p mod r)+1]+s;
 p:=p div r;
until n=0;
if x=0 then fromdec:=s
else begin
k:=0;
s1:='';
repeat
x:=x*r;
buf:=trunc(x);
str(buf,sx);
s1:=s1+sx;
inc(k);
until (frac(x)=0) or (k=t);
fromdec:=s+'.'+s1;
end;
end;
begin
clrscr;
write('Введите точность (количество знаков) перевода дробной части: ');
readln(t);
writeln('Введите путь к текстовому файлу:');
readln(ph);
assign(f,ph+'.txt');
{$I-}reset(f);{$I+}
if IOresult<>0 then    begin
write('Файл не существует. Работа программы будет завершена. Нажмите Enter для выхода...');
readln
end;
while not eof(f) do begin
read(f,n);
writeln(fromdec(n,2,t));
end;
close(f);
readln
end.

repeat
 s:=digit[(p mod r)+1]+s;
 p:=p div r;
until p=0;////////////не n

var f:text;

f:file of real;

assign(f,'file');
rewrite(f);
for i:=1 to 20 do
 begin
  a:=10*random;
  write(f,a);
 end;
reset(f);

uses crt;
var f:text;
    ph:string;
    n:real;
    t:longint;
function fromdec(n:real; r,t:longint):string;
const digit:string[2]='01';
var s,s1,sx:string;
    x:real;
    p,k,buf:longint;
begin
s:='';
x:=frac(n);
p:=trunc(n);
repeat
 s:=digit[(p mod r)+1]+s;
 p:=p div r;
until p=0;
if x=0 then fromdec:=s
else begin
k:=0;
s1:='';
repeat
x:=x*r;
buf:=trunc(x);
str(buf,sx);
s1:=s1+sx;
inc(k);
x:=frac(x);
until (frac(x)=0) or (k=t);
fromdec:=s+'.'+s1;
end;
end;
begin
clrscr;
write('Введите точность (количество знаков) перевода дробной части: ');
readln(t);
writeln('Введите путь к текстовому файлу:');
readln(ph);
assign(f,ph+'.txt');
{$I-}reset(f);{$I+}
if IOresult<>0 then begin
write('Файл не существует. Работа программы будет завершена. Нажмите Enter для выхода...');
readln
end;
while not eof(f) do begin
read(f,n);
writeln(fromdec(n,2,t));
end;
close(f);
readln
end.

uses crt;
var f:file of real;
    ph:string;
    n:real;
    i,t,y:longint;
function fromdec(n:real; r,t:longint):string;
const digit:string[2]='01';
var s,s1,sx:string;
    x:real;
    p,k,buf:longint;
begin
s:='';
x:=frac(n);
p:=trunc(n);
repeat
 s:=digit[(p mod r)+1]+s;
 p:=p div r;
until p=0;
if x=0 then fromdec:=s
else begin
k:=0;
s1:='';
repeat
 x:=x*r;
 buf:=trunc(x);
 str(buf,sx);
 s1:=s1+sx;
 inc(k);
 x:=frac(x);
until (frac(x)=0) or (k=t);
fromdec:=s+'.'+s1;
end;
end;
begin
clrscr;
write('Введите точность (количество знаков) перевода дробной части: ');
readln(t);
writeln('Введите путь к текстовому файлу:');
readln(ph);
assign(f,ph+'.txt');
rewrite(f);
write('Количество вводимых чисел: ');
readln(y);
for i:=1 to y do begin
n:=10*random;
write(f,n);
end;
reset(f);
while not eof(f) do begin
read(f,n);
writeln('Число ',n:0:3,' из 10 c/c -> 2 c/c: ',fromdec(n,2,t));
end;
close(f);
readln
end.