Program PascalGuru;
 
var g,f:text;
    s:string;
    n:integer;
 
 
begin
assign (f,'1.txt' ); reset (f);
assign (g,'2.txt' ); rewrite (g);
write('Vvvedite "zadannoe chislo":');
readln(n);
while not eof(f) do begin
readln(f,s);
if length(s)>n then writeln(g,s)
end;
 
close(f); close(g);
writeln('Isxodnye dannye uspeshno zapisany v fail "2.txt"');
readln;
end.