Mine

program ads2;

var zodis : string;
    f1, f2 : text;
begin

assign (f1, 'pirmas.txt');
assign (f2, 'antras.txt');
reset (f1);
rewrite (f2);

while (not eof(f1)) do
  begin
    readln(f1, zodis);
    writeln(zodis);
    writeln(f2, zodis);
    zodis := '';
  end;

close (f1);
close (f2);
end.