var F : TextFile;
    S, s1, s2, delim : String;
    f1, f2 : TStringList;
    i, iPos : Integer;
begin
  f1 := TStringList.Create;
  f2 := TStringList.Create;
  delim := ' ';
  AssignFile(F, cFileName);
  Reset(F);
  try 
    Readln(F, S);
    while (S <> '') do
    begin
      iPos := Pos(delim, S);
      if Pos(delim, S) > 0 then   
      begin
        s1 := Copy(S, 0, iPos);
        s2 := Copy(S, iPos+1, Length(S));
        f1.Add(s1);
        f2.Add(s2);
      end;
      Readln(F, S);
    end;
    f1.SaveToFile(cFile1);
    f2.SaveToFile(cFile2);
  finally
    CloseFile(F);
    f1.Free;
    f2.Free;
   end;
end;

K>var F : TextFile;
K>    S, s1, s2, delim : String;
K>    f1, f2 : TStringList;
K>    i, iPos : Integer;
K>begin
K>  f1 := TStringList.Create;
K>  f2 := TStringList.Create;
K>  delim := ' ';
K>  AssignFile(F, cFileName);
K>  Reset(F);
K>  try 
K>    Readln(F, S);
K>    while (S <> '') do
K>    begin
K>      iPos := Pos(delim, S);
K>      if Pos(delim, S) > 0 then   
K>      begin
K>        s1 := Copy(S, 0, iPos);
K>        s2 := Copy(S, iPos+1, Length(S));
K>        f1.Add(s1);
K>        f2.Add(s2);
K>      end;
K>      Readln(F, S);
K>    end;
K>    f1.SaveToFile(cFile1);
K>    f2.SaveToFile(cFile2);
K>  finally
K>    CloseFile(F);
K>    f1.Free;
K>    f2.Free;
K>   end;
K>end;
K>

var
    f, f1, f2: Text;
    v1, v2: double;
    ...
    
    AssignFile(f, '...');
    AssignFile(f1, '...');
    AssignFile(f2, '...');
    Reset(f);
    ReWrite(f1);
    ReWrite(f2);
    while not eof(f) do
    begin
        readln(f, v1, v2);
        writeln(f1, v1);
        writeln(f2, v2);
    end;
    CloseFile(f);
    CloseFile(f1);
    CloseFile(f2);

var inFile, outFile1, outFile2 : TextFile;
    number1, number2: double;
begin
  AssignFile(inFile, cFileName); 
  AssignFile(outFile1, cFileName1);
  AssignFile(outFile2, cFileName2);
  Reset(inFile); Rewrite(outFile1); Rewrite(outFile2);
  try 
    while not EOF(inFile)) do begin
      ReadLn(inFile, number1, number2);
      WriteLn(outFile1, number1); WriteLn(outFile2, number2);
    end;
  finally
    CloseFile(inFile); CloseFile(outFile1); CloseFile(outFile2);
  end;
end;