Program sdghgyh;
Var f,t:Text;
s:String;
min:Byte;
Begin Assign(f, 'c:\test.txt');
Assign(t, 'c:\test2.txt');
ReSet(f);
min:=254;
While Not Eof(f) Do Begin ReadLn(f,s) ;
If Length(s) End;
Close (f);
ReSet(f);
Rewrite (t);
While not Eof(f) Do Begin ReadLn(f,s);
If Length(s)=min Then WriteLn(t,s);
End;
Close(f);
Close (t);
ReadLn;
End.