Вводятся строки. определить самую длинную строку и вывести её номер на экран.без массива, интернета.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.