program file_stringes;
type sz=string[30];
var f:file of sz;
    s,kis,nagy:sz;
begin
     assign(f,'a.dat');
     reset(f);
     read(f,s);
     kis:=s;
     nagy:=s;
     while not eof(f) do
     begin
      read(f,s);
      if length(kis)>length(s) then kis:=s;
      if length(nagy)<length(s) then nagy:=s;
     end;
     close(f);
     Writeln('A legrovidebb: ',kis);
     Writeln('A leghosszabb: ',nagy);
     readln
end.