Найдите самую длинную строку в файле

const m=50; n =10;
var a:array [1..m] of string;
    L:array [1..n] of byte;
    del:array [1..n] of byte;
    ex,max,sz,i,id,j:byte;
    f1:text;
BEGIN
 max:=0;
 sz:=0;
 assign(f1,'f1.dat');
  reset(f1);
  while not EOF(f1) do
                     begin
                      read(f1,a[i]);
                      inc(i);
                      sz:=length(a[i]);
                     end;
  close(f1);
  for i:=1 to sz do
  for j:=1 to n do
   while a[i]=' ' do
    begin
       l[j]:=length(a[i]);
       inc(i);
    end;
  for j:=1 to n do
   begin
    max:=l[1];
    if max<l[j] then begin
                       max:=l[j];
                       inc(ex);
                     end;
   end;
  for i:=1 to sz do
  for id:=1 to n do
    begin
       if a[i]=' ' then del[id]:=i;
       while a[i]=' ' do
        begin
           if length(a[i])=max then
                                  writeln('a[',i,']=',a[i])
                               else
                                  delete(a[i],1,del[id]);
                                  inc(i);
 
         end;
 
   end;
END.

{ дан текстовый файл. найдите и распечатайте самую длинную строку если таковая не единственная распечатать первую }
var 
    f1:text;
    len, max: integer;
    s, maxs: string;
BEGIN
  max:=0;
  assign(f1,'f1.dat');
  reset(f1);
  while not EOF(f1) do
    begin
      readln(f1,s);
      len := length(s);
      if len> max then
        begin
          max := len;
          maxs:= s;
        end;
    end;
  close(f1);
  writeln(maxs);
end.