1) Дан текстовый файл

1) var f1, f2: textfile; str: string; beginassign (f1, 'input.txt'); reset (f1); assign (f2, 'output.txt'); rewrite (f2); while not eof (f1) do begin readln (f1, str); if length (str) > 5 then writeln (f2, str); end; close (f1); close (f2); end.