Дан файл f, компоненты которого являются действительными числами. Получить в файле g косинусы компонент файла f

var
  g, f: file of Real;
  r: Real;
  n, i: Byte;
 
begin
  randomize;
  Assign(f, 'f.dat');
  rewrite(f);
  write('Сколько чисел записать в файл n? ');
  readln(n);
  for i := 1 to n do
  begin
    r := 10 * random;
    write(f, r)
  end;
  reset(f);
  Assign(g, 'g.dat');
  rewrite(g);
  writeln('Содержание файла F: ');
  while not (eof(f)) do
  begin
    Read(f, r);
    write(r:8:2, ' ');
    write(g, cos(r));
  end;
  writeln;
  reset(g);
  writeln('Содержание файла G: ');
  while not (eof(g)) do
  begin
    Read(g, r);
    write(r:8:2, ' ');
  end;
  writeln;
  Close(f);
  Close(g);
end.

var f,g:file of real;
    i:integer;
    x:real;
begin
randomize;
assign(f,'chisla');
rewrite(f);
for i:=1 to 20 do//запишем в файл например 20 чисел, можно хоть сколько
 begin
  x:=2*pi*random;
  write(f,x);
 end;
writeln('Содержание файла F');
reset(f);
assign(g,'kosinusy');
rewrite(g);
while not eof(f) do
 begin
  read(f,x);
  write(x:6:2);
  x:=cos(x);
  write(g,x);
 end;
close(f);
writeln;
writeln('Содержание файла G');
reset(g);
while not eof(g) do
 begin
  read(g,x);
  write(x:6:2);
 end;
close(g);
end.