[Моклев]

№2:
fn1,fn2: String - имена файлов

Код:

var f: file of Real;
     s: String;
     v1,v2: Real;
begin
If FileExists(fn2) then begin
s:=fn1; fn1:=fn2; fn2:=s;
end;
AssignFile(f,fn1);
Reset(f);
ReadLn(f,v1);
while not EOF(f) do ReadLn(f,v2);
CloseFile(f);
AssignFile(f,fn2);
Rewrite(f);
WriteLn(f,v1);
WriteLn(f,v2);
CloseFile(f);
end;

если помогло - не забудь плюсануть