Поиск самой длинной возрастающей последовательности в файле

program project1;
 
uses crt;
 
var  f:file of Integer;
     num,i: Integer;
     str1, str2, str_num, tmp: String;
     l: integer;
 
 
begin
           ClrScr;
 
 
 
           assign(f,'f.dat');
           rewrite (f);
 
           write (f, 12312);
           write (f, 12345);
           write (f, 126789);
           write (f, 123);
           close (f);
 
           reset(f);
           str1:='';
           str2:='';
 
           while not eof(f) do begin
              read (f, num);
              Str(num, str_num);
 
 
              write (str_num);
              str1 := str_num[1];
              for i:=2 to Length(str_num)+1 do begin
 
 
                  if ( str1[ Length(str1) ] > str_num[i]) then begin
                    if (Length(str2) < Length(str1)) then begin
                       str2 := str1;
                       str1 := str_num[i];
                    end;
 
                  end
                  else
                      str1 := str1 + str_num[i];
              end;
 
           end;
           writeln;
           writeln ('Max is: ', str2);
           readkey;
end.

var  f:file of longint;
     num,i: longint;