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

1)Дан текстовый файл. Записать в другой файл все строки, длина которых >5 символов. 2)Дан текстовый файл. Вставить в его начало строку, состоящую изпяти звездочек (*****), а в конец строку из пяти символов черточек (-----).

 

1)
var
  f1, f2 : textfile;
  str : string;
begin
assign (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.