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.
