Something

program ads2;
uses crt;
var zodis : string;
    f1, f2 : text;
begin

assign (f1, 'C:\pirmas.txt');
assign (f2, 'C:\antras.txt');
reset (f1);
rewrite (f2);
while (Eof(f1) = false) do
  begin
    readln(f1, zodis);
    writeln (zodis);
    writeln(f2,zodis);
    zodis := '';
  end;
end.