Помогите решить задачу в Паскале

[vip.egor]

Помогите решить задачу в Паскале

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

 

[Vladimir_S]

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

Легко:

Const
 N=40;

Var
 f1:File of Real;
 f2:File of Byte;
 i:Byte;
 R1,R2:Real;
 b:boolean;

Begin
 Randomize;
 Assign(f1,'D:\Inp');
 Rewrite(f1);
 for i:=1 to N do
  begin
   R1:=Random*100-40.0;
   write(f1,R1);
   write(R1:8:2);
  end;
 writeln;
 writeln;
 Close(f1);
 Reset(f1);
 Assign(f2,'D:\Outp');
 Rewrite(f2);
 Read(f1,R1);
 Repeat
  i:=1;
  b:=false;
  repeat
   if Not(EoF(f1)) then
    begin
     read(f1,R2);
     if R2>R1 then Inc(i) else b:=true;
     R1:=R2;
    end;
  until b or EoF(f1);
  If i>1 then
   begin
    write(f2,i);
    write(i:4);
   end;
 Until EoF(f1);
 Close(f1);
 Close(f2);
 Readln
End.

Имена файлов, а также их расположение (у меня это диск D) исправьте на свой вкус.