Вводятся строки. определить самую длинную строку и вывести её номер на экран.без массива, интернета.pascal abc. ​

Uses crt; type fil=text; var f1: fil; a,b,c: string; i,w,n,y: integer; procedure wwod; begin assign(f1,'t1.dat'); rewrite(f1); writeln('введите кол-во строк в файле: '); readln(y); for i: = 1 to y do     begin     writeln('введите ',i,' строку');   {}  
  readln(a);     writeln(f1,a);     end; close(f1); end; procedure prosm; begin assign(f1,'t1.dat'); reset(f1); writeln('содержание текстового файла: '); while not eof(f1) do       begin       a: ='';      
readln(f1,a);       writeln(a)       end; close(f1); end; procedure naxod; var max: string; i,i1: integer; begin assign(f1,'t1.dat'); reset(f1); max: =''; i: =1; i1: =0; while not eof(f1) do       begin       a: ='';
      readln(f1,a);       if length(a)> length(max) then begin                           max: =a;                    
      i1: =i;                                 end;     inc(i);     end; writeln('самая длинная строка: ',max,' (',i1,')'); reset(f1); i: =1; while not
eof(f1) do       begin       a: ='';       readln(f1,a);       if (length(max)=length(a)) and (i< > i1)         then   writeln('еше одна самая длинная строка: ',max,' (',i,')');  
    inc(i);       end; close(f1); {} end; begin w: =0;       {обнуляем переменную для выбора меню} while w< > 4 do begin   {пока не равно 4 }       writeln('           меню программы');
      writeln('1-создание текстового файла');       writeln('2-просмотр текстового файла');       writeln('3-нахождение длинного строки');       writeln('4-выход из программы');       write('    
        ваш выбор -> ');       readln(w);       case w of           1: wwod;           2: prosm;           3: naxod;    
      end;       writeln       end; end.

она была построена 15 марта 1889года, она имеет высоту 324 метра