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>