Типизированные и нетипизированные файлы: Переписать числа файла f1 в f2 числа кратные 3 и 5

Uses crt;
Var
  f1,f2: File of Integer;
  i,x: Integer;
BEGIN
Clrscr;
Assign(f1,'f1.dat');
Rewrite(f1);
Randomize;
For i:=1 to Random(20)+10 do
begin
  x:=Random(100);
  Write(f1,x);
end;
Reset(f1);
Assign(f2,'f2.dat');
Rewrite(f2);
Writeln('F1:');
While not Eof(f1) do
begin
  Read(f1,x);
  Write(x,' ');
  If (x mod 3=0)and(x mod 5=0) Then
  Write(f2,x);
end;
Reset(f2);
Writeln;
Writeln('F2:');
While not Eof(f2) do
begin
  Read(f2,x);
  Write(x,' ');
end;
Close(f1);
Close(f2);
Readln
END.

Uses crt;
Var
  f1,f2: File;
  i,x: Integer;
BEGIN
Clrscr;
Assign(f1,'f1');
Rewrite(f1,1);
Randomize;
For i:=1 to Random(20)+10 do
begin
  x:=Random(100);
  BlockWrite(f1,x,1)
end;
Reset(f1,1);
Assign(f2,'f2');
Rewrite(f2,1);
Writeln('F1:');
While not Eof(f1) do
begin
  BlockRead(f1,x,1);
  If (x mod 3=0)and(x mod 5=0) Then
  BlockWrite(f2,x,1);
  Write(x,' ');
end;
Reset(f2,1);
Writeln;
Writeln('F2:');
While not Eof(f2) do
begin
  BlockRead(f2,x,1);
  Write(x,' ');
end;
Close(f1);
Close(f2);
Readln
END.