Bài 1:

uses crt;

var f:text;

      ht,s:string;

      max:byte;

begin

      clrscr;

      Assign(f,'DANHSACH.INT');   reset(f);

      max:=0;   s:='';

      while not eof(f) do

            begin

                  readln(f,ht);

                  if length(ht)>max then

                        begin

                              max:=length(ht);

                              s:=ht;

                        end;

            end;

      write(s);

      close(f);  readln;

end.

Bài 2:

var f,g:text;

      ht,s:string;

      max:byte;

begin

      Assign(f,'DANHSACH.INT');   reset(f);

      Assign(g,'HOTEN.OUT');   rewrite(g)'

      max:=0;   s:='';

      while not eof(f) do

            begin

                  readln(f,ht);

                  if length(ht)>max then

                        begin

                              max:=length(ht);

                              s:=ht;

                        end;

            end;

      write(g,s);

      close(f); close(g);

end.