Работа с текстовыми файлами Pascal

[decantnik]

Дан текстовый файл, каждая стока которого содержит изображения нескольких чисел, разделенные пробелами (вещественные числа имеют ненулевую дробную часть). Создать файл вещественных чисел, содержащий (в том же порядке) все числа из исходного файла, имеющие ненулевую дробную часть.

Никак не могу решить эту задачу. У меня все это сводится к тому, что мы из файла выделяем 1 строку и ищем вещественное число в ней. Но не могу это реализовать.

В принципе если файл вещественный, то это проще простого, но текстовой..

Подкиньте пожалуйста годной идеи.

var
 f1:text; f2:file of real;
 i,n:integer; s:string;
 
begin
 assign (f1, 'input.txt');
 reset (f1);
 assign (f2, 'output.dat');
 rewrite (f2);
 while not (eof(f1)) do
  begin
   readln (s);

[Летучий_СкилетиК]

var
 f1:text; f2:file of real;
 i,n:integer;
 s:real;

begin
 assign (f1, 'd:\input.txt');
 reset (f1);
 assign (f2, 'd:\output.dat');
 rewrite (f2);
 while not (eof(f1)) do
  begin
   while (not eoln(f1)) do
   begin
       read (f1,s);
       write(f2,s);
   end;
   readln(f1);
  end;
  close(f1);
  close(f2);

 end.

[decantnik]

Спасибо, идею понял,) Теперь только осталось из real файла найти дробные, а это проще простого. Еще раз огромное вам спасибо.