Заполнить файл действительными случайными числами.Переписать в другой файл только целые части данных чисел

var
a,b: real;
i: integer;
f,f2: text;
begin
assign(f, 'C:\f.txt');
assign(f2, 'C:\f2.txt');
rewrite(f);
rewrite(f2);
for i:=1 to 10 do begin
a:=random;
b:=random(10)+a;
write(f,b:1:3,' ');
write(f2, trunc(b),' ');
end;
close(f);
close(f2);
end.

const
  DirectionA = 'C:\FileA.dat';
  DirectionB = 'C:\FileB.dat';
  n = 3;
var
  FileA, FileB: file of real;
  Chislo: real;
  i: byte;
begin
  writeln('Введите ', n, ' вещественных чисел: ');
  assign(FileA, DirectionA);
  rewrite(FileA);
  for i:=1 to n do
  begin
    read(Chislo);
    write(FileA, Chislo);
  end;
  close(FileA);
  writeln('Содержимое второго файла: ');
  assign(FileA, DirectionA);
  reset(FileA);
  assign(FileB, DirectionB);
  rewrite(FileB);
  while not EOF(FileA) do
  begin
    read(FileA, Chislo);
    write(trunc(Chislo), ' ');
    write(FileB, trunc(Chislo));
  end;
  close(FileB);
  close(FileA);
end.

const
  DirectionA = 'C:\FileA.dat';
  DirectionB = 'C:\FileB.dat';
  n = 15;
var
  FileA, FileB: file of real;
  Chislo: real;
  i: byte;
begin
  writeln(n, ' вещественных чисел: ');
  assign(FileA, DirectionA);
  rewrite(FileA);
  for i:=1 to n do
  begin
    Chislo:=random*5-5;
    write(Chislo:0:2, ' ');
    write(FileA, Chislo);
  end;
  close(FileA);
  writeln;
  writeln('Содержимое второго файла: ');
  assign(FileA, DirectionA);
  reset(FileA);
  assign(FileB, DirectionB);
  rewrite(FileB);
  while not EOF(FileA) do
  begin
    read(FileA, Chislo);
    write(trunc(Chislo), ' ');
    write(FileB, trunc(Chislo));
  end;
  close(FileB);
  close(FileA);
end.